构造线加强修改

--@-----

ysq101 发表于 2013-8-31 17:08
你应该是大师级别的人物啊~~不可能不会吧

我要是大师级的人物就不用求别人来{:soso_e113:}

ysq101

--@----- 发表于 2013-8-31 17:30
我要是大师级的人物就不用求别人来

应该不会吧。。。你看你写的程序都比较高级啊~~~

Free-Lancer

试试 XDAPI + LISP Lib

1. (defun c:hv (/ ss p1 p2 xl)
   
2.   (setq        ss (ssadd)
   
3.         p1 (trans (getvar "viewctr") 1 0)
   
4.         p2 (polar p1 (/ pi 2) 1.)
   
5.         xl (xdrx_xline_make p1 p2)
   
6.   )
   
7.   (ssadd xl ss)
   
8.   (xd::pickset:drag
   
9.     ss
   
10.     (getvar "viewctr")
    
11.     4
    
12.     (+ 1 2 4 8 16 32 64 128)
    
13.     t
    
14.   )
    
15.   (princ)
    
16. )

(defun c:hv (/ ss p1 p2 xl)<br />   (setq        ss (ssadd)<br />         p1 (trans (getvar "viewctr") 1 0)<br />         p2 (polar p1 (/ pi 2) 1.)<br />         xl (xdrx_xline_make p1 p2)<br />   )<br />   (ssadd xl ss)<br />   (xd::pickset:drag<br />     ss<br />     (getvar "viewctr")<br />     4<br />     (+ 1 2 4 8 16 32 64 128)<br />     t<br />   )<br />   (princ)<br /> )

--@-----

Free-Lancer 发表于 2013-8-31 20:34
试试 XDAPI + LISP Lib

不行的，把问题说的简单点就是输入XL按空格是垂直线，输入XL按空格空格是水平线。

Free-Lancer

--@----- 发表于 2013-8-31 22:39
不行的，把问题说的简单点就是输入XL按空格是垂直线，输入XL按空格空格是水平线。

你试过上面程序 吗 ？

--@-----

--@----- 发表于 2013-8-31 22:39
不行的，把问题说的简单点就是输入XL按空格是垂直线，输入XL按空格空格是水平线。

试了， 我的CAD是08的 加载了晓东APi  不知道是哪里问题的？

st788796

1. (defun c:hv (/ aa tf tf1)
   
2.   (princ "\n***构造线加强***")
   
3.   (setq tf t)
   
4.   (while tf
   
5.     (c:vv)
   
6.     (setq tf1 t)
   
7.     (while tf1
   
8.       (princ "\n水平(空格)<任意键退出>")
   
9.       (setq aa (grread))
   
10.       (if (= (cadr aa) 32)
    
11. (progn
    
12.    (c:hh)
    
13.    (setq tf1 nil)
    
14. ) ;_水平
    
15. (setq aa  t
    
16.        tf  nil
    
17.        tf1 nil
    
18. )
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. (defun c:hh ()
    
25.   (command "xline" "h")
    
26.   (while (not (zerop (getvar "CMDACTIVE")))
    
27.     (princ "\n指定通过点: ")
    
28.     (command pause)
    
29.   )
    
30.   (princ)
    
31. )
    
32. (defun c:vv ()
    
33.   (command "xline" "v")
    
34.   (while (not (zerop (getvar "CMDACTIVE")))
    
35.     (princ "\n指定通过点: ")
    
36.     (command pause)
    
37.   )
    
38.   (princ)
    
39. )
    

(defun c:hv (/ aa tf tf1)<br />   (princ "\n***构造线加强***")<br />   (setq tf t)<br />   (while tf<br />     (c:vv)<br />     (setq tf1 t)<br />     (while tf1<br />       (princ "\n水平(空格)<任意键退出>")<br />       (setq aa (grread))<br />       (if (= (cadr aa) 32)<br /> (progn<br />    (c:hh)<br />    (setq tf1 nil)<br /> ) ;_水平<br /> (setq aa  t<br />        tf  nil<br />        tf1 nil<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:hh ()<br />   (command "xline" "h")<br />   (while (not (zerop (getvar "CMDACTIVE")))<br />     (princ "\n指定通过点: ")<br />     (command pause)<br />   )<br />   (princ)<br /> )<br /> (defun c:vv ()<br />   (command "xline" "v")<br />   (while (not (zerop (getvar "CMDACTIVE")))<br />     (princ "\n指定通过点: ")<br />     (command pause)<br />   )<br />   (princ)<br /> )<br />

--@-----

很感谢st788796大侠的代码，此功能已经超出我想要的了，实在是太棒了！空格还能切换垂直和水平方向，这里也感谢下eachy大侠为了这个问题昨晚很晚的一直帮助我。感谢你们！！！{:soso_e100:}

davide888

st788796 发表于 2013-9-1 00:33

太好了   可以直接横向和纵向循环  右键退出吗？   还有可以横向-纵向-角度三个循环右键退出吗？