Aj odo mňa pochvala :)

 

Prikladám svoj Tip:

Výber všetkých entít počas spusteného príkazu (napr. copy, move, delete...) je možný napísaním _all na príkazový riadok.

 

;;; 1/X:th point of 2 points
(defun c:xpt (/ pt1 pt2 x)
  (if (and
        (= (getvar "cmdactive") 1)
        (setq pt1 (getpoint "\nPrvní bod: "))
        (setq pt2 (getpoint pt1 "\nDruhý bod: "))
        (setq x (getstring  "\nDělitel: "))
    )
    (command
      "_non"
      (list
        (+ (/ (- (car pt2) (car pt1)) (atoi x)) (car pt1))
        (+ (/ (- (cadr pt2) (cadr pt1)) (atoi x)) (cadr pt1))
        (+ (/ (- (caddr pt2) (caddr pt1)) (atoi x)) (caddr pt1))
      )
    )
  )
  (princ)
)