那位大侠帮我修改一下 “随鼠标移动的直线”或“动态直线”呀

uditx · 发表于 2011-7-27 08:59:33

那位大侠帮我修改一下下面的代码，是关于动态移动的直线的，先画一条直线，让他随鼠标移动，先行谢过了
(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)
)

dunkel · 发表于 2011-7-27 11:04:06

第二行的 (setq i (cadr j)) 里 j 没有定义？可以改为 (setq i (getpoint)) 直接输入一个点试试？

Andyhon · 发表于 2011-7-27 13:01:07

移转好些
http://bbs.mjtd.com/forum-3-1.html
AutoLISP/Visual LISP 编程技术

uditx · 发表于 2011-7-27 18:31:20

不太好呀能不能帮忙呀

账号		自动登录	找回密码
密码			注册

[基础习题] 那位大侠帮我修改一下 “随鼠标移动的直线”或“动态直线”呀

相关帖子