求助线段动态拖拽

阿富汗发货单

如何用LISP实现以鼠标当前位置为线段的中点画一条正交Y轴200长的线段，而且随着鼠标的移动跟着移动，可以连续画线段，直到按右键退出，就像画正交构造线一样，可以随着鼠标移动跟着移动。

Gu_xl

阿富汗发货单 发表于 2012-8-21 10:58
谢谢GU_Xl版主的热心解答，试了后发现几个问题：
1. 按鼠标右键退出命令没问题，但按键盘ESC取消会多出来 ...

第一个问题：添加一个错误处理即可！关于错误处理的例子论坛里比比皆是！
第二个问题：参见帖子http://bbs.mjtd.com/thread-91191-1-1.html
第三个问题：增加一个空格响应的判断即可 ，修改直线的方向模式

你可以自己尝试修改！当你修改成功后，自然会获得无与伦比的成就感 ...
   

阿富汗发货单

怎么没人回答啊 ，大哥大姐们帮帮忙吧！不胜感激！！

Gu_xl

阿富汗发货单 发表于 2012-8-21 07:37
怎么没人回答啊 ，大哥大姐们帮帮忙吧！不胜感激！！

1. (defun c:tt  (/ GR PT P1 P2 LINE LOOP)
   
2.   (while (not loop)
   
3.     (setq gr (grread t 15))
   
4.     (cond
   
5.       ((= 5 (car gr))
   
6.        (setq pt (cadr gr))
   
7.        (setq p1        (polar pt pi 100)
   
8.              p2        (polar pt 0 100)
   
9.              )
   
10.        (if line
    
11.          (progn
    
12.            (setq line (subst (cons 11 (trans p2 1 0))
    
13.                              (assoc 11 line)
    
14.                              (subst (cons 10 (trans p1 1 0))
    
15.                                     (assoc 10 line)
    
16.                                     line)))
    
17.            (entmod line)
    
18.            )
    
19.          (progn
    
20.            (entmake (list '(0 . "line")
    
21.                           (cons 10 (trans p1 1 0))
    
22.                           (cons 11 (trans p2 1 0))))
    
23.            (setq line (entget (entlast)))
    
24.            )
    
25.          )
    
26.        )
    
27.       ((= 3 (car gr))
    
28.        (setq pt (cadr gr))
    
29.        (setq p1        (polar pt pi 100)
    
30.              p2        (polar pt 0 100)
    
31.              )
    
32.        (if line
    
33.          (progn
    
34.            (setq line (subst (cons 11 (trans p2 1 0))
    
35.                              (assoc 11 line)
    
36.                              (subst (cons 10 (trans p1 1 0))
    
37.                                     (assoc 10 line)
    
38.                                     line)))
    
39.            (entmod line)
    
40.            )
    
41.          (progn
    
42.            (entmake (list '(0 . "line")
    
43.                           (cons 10 (trans p1 1 0))
    
44.                           (cons 11 (trans p2 1 0))))
    
45.            (setq line (entget (entlast)))
    
46.            )
    
47.          )
    
48.        (setq line nil)
    
49.        )
    
50.       ((= 25 (car gr))
    
51.        (setq loop t)
    
52.        (if line
    
53.          (entdel (entlast))
    
54.          )
    
55.        )
    
56.       )
    
57.     )
    
58.   (princ)
    
59.   )
    

(defun c:tt  (/ GR PT P1 P2 LINE LOOP)<br />   (while (not loop)<br />     (setq gr (grread t 15))<br />     (cond<br />       ((= 5 (car gr))<br />        (setq pt (cadr gr))<br />        (setq p1        (polar pt pi 100)<br />              p2        (polar pt 0 100)<br />              )<br />        (if line<br />          (progn<br />            (setq line (subst (cons 11 (trans p2 1 0))<br />                              (assoc 11 line)<br />                              (subst (cons 10 (trans p1 1 0))<br />                                     (assoc 10 line)<br />                                     line)))<br />            (entmod line)<br />            )<br />          (progn<br />            (entmake (list '(0 . "line")<br />                           (cons 10 (trans p1 1 0))<br />                           (cons 11 (trans p2 1 0))))<br />            (setq line (entget (entlast)))<br />            )<br />          )<br />        )<br />       ((= 3 (car gr))<br />        (setq pt (cadr gr))<br />        (setq p1        (polar pt pi 100)<br />              p2        (polar pt 0 100)<br />              )<br />        (if line<br />          (progn<br />            (setq line (subst (cons 11 (trans p2 1 0))<br />                              (assoc 11 line)<br />                              (subst (cons 10 (trans p1 1 0))<br />                                     (assoc 10 line)<br />                                     line)))<br />            (entmod line)<br />            )<br />          (progn<br />            (entmake (list '(0 . "line")<br />                           (cons 10 (trans p1 1 0))<br />                           (cons 11 (trans p2 1 0))))<br />            (setq line (entget (entlast)))<br />            )<br />          )<br />        (setq line nil)<br />        )<br />       ((= 25 (car gr))<br />        (setq loop t)<br />        (if line<br />          (entdel (entlast))<br />          )<br />        )<br />       )<br />     )<br />   (princ)<br />   )<br />

阿富汗发货单

Gu_xl 发表于 2012-8-21 09:55

谢谢GU_Xl版主的热心解答，试了后发现几个问题：
1. 按鼠标右键退出命令没问题，但按键盘ESC取消会多出来一条线段。
2. 没有对象捕捉
3. 现在是正交X轴画线段，可不可以弄成按一下空格键变成正交Y轴画线段，再按一下空格键又变成正交X轴画线段，也就是说用空格键来控制正交X轴画线段和正交Y轴画线段。


请GU_xl版主再修改一下，实在是麻烦您了，谢谢

阿富汗发货单

Gu_xl 发表于 2012-8-21 20:02
第一个问题：添加一个错误处理即可！关于错误处理的例子论坛里比比皆是！
第二个问题：参见帖子http://b ...

好的，我先试试吧！谢谢GU_Xl版主了，如果实在能力有限的话还请版主不吝赐教啦。

阿富汗发货单

Gu_xl 发表于 2012-8-20 14:21
第一个问题：添加一个错误处理即可！关于错误处理的例子论坛里比比皆是！
第二个问题：参见帖子http://b ...

哎， 大哥求您再出下手吧，搞到快23.30了头都晕了还是不行啊，不是（错误: 参数太少），就是（错误: 输入的列表有缺陷），主要还是我还是新手啊，程序短点还好一长就感觉无从下手了，求您啦，我现在的水平还做不到啊。