[编程申请]：斑竹，求一个能随意改变角度画直线的程序chline.lisp

zhujian

斑竹，求一个能随意改变角度画直线的程序chline.lisp，就是点一条参考直线，然后鼠标也自动和该直线平行的程序，如果有给小弟发一个好吗？小弟的邮箱是hyf513@126.com..先谢谢您。

wuye95

你设ucs不就行了吗？

pglyxq

刚写了一个，已经过调试。
(defun c:chline()
  (setq en (entsel "\n选择参考直线:"))
  (if en
    (progn
      (setq en_data (entget (car en)))
      (setq en_name (cdr (assoc 0 en_data)))
      (if (= en_name "LINE")
        (progn
          (setq p1 (cdr (assoc 10 en_data)))
          (setq p2 (cdr (assoc 11 en_data)))
          (setq ang (angle p1 p2))
          (setvar "snapang" ang)
          )
        )
      )
    )
  )