那位大侠帮我修改一下 “随鼠标移动的直线”或“动态直线”呀
那位大侠帮我修改一下下面的代码，是关于动态移动的直线的，先画一条直线，让他随鼠标移动，先行谢过了(defun c:cs ()
(setq i (cadr j))
(command "line" i (polar i 0 500) "") ;生成直线
(setq k (entlast))
(while (= (car (setq j (grread t 1 0))) 5)
(setq h (entget k))
(setq i (cadr j))
(setq h (subst (cons 10 i) (assoc 10 h) h))
(entmod h)
)
(princ)
)
第二行的 (setq i (cadr j)) 里 j 没有定义？可以改为 (setq i (getpoint)) 直接输入一个点试试？ 移转好些
http://bbs.mjtd.com/forum-3-1.html
AutoLISP/Visual LISP 编程技术
不太好呀 能不能帮忙呀
页:
[1]