[求助]过已知坐标画平行线段

jjyf0208

图纸上有一段直线和一个已知点，已知点坐标格式为（X，Y，Z）。希望点选此已知点， 即可绘制出以该点为出发点平行于已有直线的线段，线长为Z减去某一个常数后再乘以系数，例如L=（Z-123）*3。

恳请大侠们能帮助编写LISP程序实现。

danxingpen

(defun c:test( / line point)
  (setq line(entsel "\n选择要平行的线:"))
  (setq point(getpoint "\n选择点：")) 
  (command ".copy" line "" (cdr(assoc '10(entget(car line)))) point)
  (if (> (caddr point) 123)(command ".lengthen" "t" (* 3 (- (caddr point) 123)) (entlast) ""))
  (princ)
)