急盼高手解答

yzy580 · 发表于 2002-4-27 10:50:00

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

龙龙仔 · 发表于 2002-4-27 11:07:00

;;;以前的回答(参考这个,希望对你有用)
;;;向高手求教：有一任意线段，如何选取一个端点后，按指定长度自动截取或延伸该线段，要求用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)
)

急盼高手解答

发表回复

精选推荐

浏览过的版块