大神何在！！！

newer

试试下面的，间距和扣除长度自己设置

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (mapcar '(lambda (x)
   
4.                (setq pts (xdrx_getpropertyvalue x "vertices")
   
5.                      p1  (car pts)
   
6.                      p2  (cadr pts)
   
7.                      pp  (mapcar '- dynpt (trans pt 1 0))
   
8.                      dir (xdrx_vector_product ydir (cadr pp))
   
9.                      p3  (mapcar '+ p2 dir)
   
10.                      p4  (mapcar '+ p1 dir)
    
11.                )
    
12.                (xdrx_polyline_setpointat x 2 p3)
    
13.                (xdrx_polyline_setpointat x 3 p4)
    
14.              )
    
15.             ents
    
16.     )
    
17.   )
    
18.   (defun _callback1 (key)
    
19.     (cond
    
20.       ((= key "S")
    
21.        (if (setq
    
22.              val (getreal
    
23.                    (xdrx_prompt "\n输入矩形间距值<" #poly-zk-gap ">:" t)
    
24.                  )
    
25.            )
    
26.          (setq #poly-zk-gap val)
    
27.        )
    
28.       )
    
29.       ((= key "D")
    
30.        (if (setq
    
31.              val (getreal
    
32.                    (xdrx_prompt "\n输入宽度扣除值<" #poly-zk-zhejian ">:" t)
    
33.                  )
    
34.            )
    
35.          (setq #poly-zk-zhejian val)
    
36.        )
    
37.       )
    
38.     )
    
39.     (_prompt)
    
40.   )
    
41.   (defun _prompt()
    
42.     (xdrx_prompt "\n当前设置: 间距(" #poly-zk-gap ") / 扣除长度(" #poly-zk-zhejian ")")
    
43.   )
    
44.   (xdrx_begin)
    
45.   (if (not #poly-zk-zhejian)
    
46.     (setq #poly-zk-zhejian 0)
    
47.   )
    
48.   (if (not #poly-zk-gap)
    
49.     (setq #poly-zk-gap 10.0)
    
50.   )
    
51.   (_prompt)
    
52.   (xdrx_initssget
    
53.     "\n拾取多段线[间距(S)/扣除长度(D)]<退出>:"
    
54.     "S D"
    
55.     ""
    
56.     "_callback1"
    
57.   )
    
58.   (xdrx_initget "S D")
    
59.   (if
    
60.     (and (setq
    
61.            e (xdrx_ssget ":S:N" '((0 . "LWPOLYLINE")))
    
62. 
    
63.          )
    
64.          (setq e (ssname e 0))
    
65.          (xdrx_polyline_isonlylines e)
    
66.          (setq pt (getpoint "\n点取位置<退出>:"))
    
67.     )
    
68.      (progn
    
69.        (setq verts (xdrx_getpropertyvalue e "vertices"))
    
70.        (if (xdrx_curve_isclosed e)
    
71.          (setq verts (xd::pnts:close verts))
    
72.        )
    
73.        (setq verts (xd::list:snakepair verts))
    
74.        (setq xdir (getvar "ucsxdir")
    
75.              ydir (getvar "ucsydir")
    
76.        )
    
77.        (setq base pt
    
78.              ents nil
    
79.        )
    
80.        (mapcar '(lambda (x)
    
81.                   (setq p1   base
    
82.                         dis  (- (apply 'distance x) #poly-zk-zhejian)
    
83.                         p2   (mapcar '+ p1 (xdrx_vector_product xdir dis))
    
84.                         base (polar p2 0.0 #poly-zk-gap)
    
85.                   )
    
86. 
    
87.                   (setq ents (cons (xdrx_polyline_make
    
88.                                      (list p1 p2 p2 p1)
    
89.                                      t
    
90.                                    )
    
91.                                    ents
    
92.                              )
    
93.                   )
    
94.                   (xdrx_entity_setpropertiesfrom (entlast) e)
    
95.                 )
    
96.                verts
    
97.        )
    
98.        (xdrx_pointmonitor "_callback")
    
99.        (getpoint "\n拉伸到:")
    
100.        (xdrx_pointmonitor)
     
101.      )
     
102.   )
     
103.   (xdrx_end)
     
104.   (princ)
     
105. )
     

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (mapcar '(lambda (x)<br />                (setq pts (xdrx_getpropertyvalue x "vertices")<br />                      p1  (car pts)<br />                      p2  (cadr pts)<br />                      pp  (mapcar '- dynpt (trans pt 1 0))<br />                      dir (xdrx_vector_product ydir (cadr pp))<br />                      p3  (mapcar '+ p2 dir)<br />                      p4  (mapcar '+ p1 dir)<br />                )<br />                (xdrx_polyline_setpointat x 2 p3)<br />                (xdrx_polyline_setpointat x 3 p4)<br />              )<br />             ents<br />     )<br />   )<br />   (defun _callback1 (key)<br />     (cond<br />       ((= key "S")<br />        (if (setq<br />              val (getreal<br />                    (xdrx_prompt "\n输入矩形间距值<" #poly-zk-gap ">:" t)<br />                  )<br />            )<br />          (setq #poly-zk-gap val)<br />        )<br />       )<br />       ((= key "D")<br />        (if (setq<br />              val (getreal<br />                    (xdrx_prompt "\n输入宽度扣除值<" #poly-zk-zhejian ">:" t)<br />                  )<br />            )<br />          (setq #poly-zk-zhejian val)<br />        )<br />       )<br />     )<br />     (_prompt)<br />   )<br />   (defun _prompt()<br />     (xdrx_prompt "\n当前设置: 间距(" #poly-zk-gap ") / 扣除长度(" #poly-zk-zhejian ")")<br />   )<br />   (xdrx_begin)<br />   (if (not #poly-zk-zhejian)<br />     (setq #poly-zk-zhejian 0)<br />   )<br />   (if (not #poly-zk-gap)<br />     (setq #poly-zk-gap 10.0)<br />   )<br />   (_prompt)<br />   (xdrx_initssget<br />     "\n拾取多段线[间距(S)/扣除长度(D)]<退出>:"<br />     "S D"<br />     ""<br />     "_callback1"<br />   )<br />   (xdrx_initget "S D")<br />   (if<br />     (and (setq<br />            e (xdrx_ssget ":S:N" '((0 . "LWPOLYLINE")))<br /> <br />          )<br />          (setq e (ssname e 0))<br />          (xdrx_polyline_isonlylines e)<br />          (setq pt (getpoint "\n点取位置<退出>:"))<br />     )<br />      (progn<br />        (setq verts (xdrx_getpropertyvalue e "vertices"))<br />        (if (xdrx_curve_isclosed e)<br />          (setq verts (xd::pnts:close verts))<br />        )<br />        (setq verts (xd::list:snakepair verts))<br />        (setq xdir (getvar "ucsxdir")<br />              ydir (getvar "ucsydir")<br />        )<br />        (setq base pt<br />              ents nil<br />        )<br />        (mapcar '(lambda (x)<br />                   (setq p1   base<br />                         dis  (- (apply 'distance x) #poly-zk-zhejian)<br />                         p2   (mapcar '+ p1 (xdrx_vector_product xdir dis))<br />                         base (polar p2 0.0 #poly-zk-gap)<br />                   )<br /> <br />                   (setq ents (cons (xdrx_polyline_make<br />                                      (list p1 p2 p2 p1)<br />                                      t<br />                                    )<br />                                    ents<br />                              )<br />                   )<br />                   (xdrx_entity_setpropertiesfrom (entlast) e)<br />                 )<br />                verts<br />        )<br />        (xdrx_pointmonitor "_callback")<br />        (getpoint "\n拉伸到:")<br />        (xdrx_pointmonitor)<br />      )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

czkkk

是的    宽度要手动输入的   每个图形中间的间距都默认是5毫米  或者手动输入也行

czkkk

可以了   太感谢了   

newer

czkkk 发表于 2017-3-22 09:00

不客气，可以了，就编辑下主题贴，前面加上 【已解决】 吧。

czkkk

在哪里编辑主题帖   我对这个不太懂  在这里发帖求助  也是偶然的机会  以往也很少来论坛里来看  也是抱着试试的态度   也没想到真的有人帮我解决问题了

Lisphk

czkkk 发表于 2017-3-22 21:44