急盼高手解答

yzy580

把一个数赋给参数x后，如何划一条以（0，0）为起点，x为长度的直线？
另外，如何使程序自动获取这条直线的两个端点？
谢谢！！！

龙龙仔

;;;以前的回答(参考这个,希望对你有用)
;;;向高手求教：有一任意线段，如何选取一个端点后，按指定长度自动截取或延伸该线段，要求用lisp
(defun C:TEST (/ A A1 A2 A10 A11 EE DIST ANG)
  (while (= A NIL)
    (prompt "\n请选线段: ")
    (setq A (entsel))
    (setq A1 (entget (car A)))
    (if        (/= "LINE" (cdr (assoc 0 A1)))
      (setq A NIL)
    )
  )
  (setq A2 (osnap (cadr A) "END"))
  (setq DIST (getdist A2 "\n指定长度: "))
  (setq A10 (cdr (assoc 10 A1)));;;端点1
  (setq A11 (cdr (assoc 11 A1)));;;端点2
  (if (not (equal A2 A10))
    (setq A2  A11
          EE  10
          ANG (angle A2 A10)
    )
    (setq EE  11
          ANG (angle A2 A11)
    )
  )
  (setq A1 (subst (cons EE (polar A2 ANG DIST)) (assoc EE A1) A1))
  (entmod A1)
  (princ)
)