[求助]请高手帮忙看看这个"线段等分打断"程序为什么会'认生"

龙龙仔

2.   (command "_.ucs" "");;--------
3.    (if SS
4.        (repeat (sslength SS)
5.            (setq E (ssname SS I))
6.            (setq
7.   LEN (vlax-curve-getdistatparam E (vlax-curve-getendparam E))
8.            )
9.            (if N
10.   (setq D  (/ LEN N)
11.              M  N
12.   )
13.   (setq M (1+ (fix (/ LEN D))))
14.            )
15.            (repeat (1- M)
16.   (if (setq PT (vlax-curve-getpointatdist E D))
17.      (vl-cmdf ".break" (list E PT) PT)
18.   )
19.   (setq E (entlast))
20.            )
21.            (setq I (1+ I))
22.        )
23.    )
24.    (command "_.ucs" "p");;--------

  (command "_.ucs" "");;--------    (if SS        (repeat (sslength SS)            (setq E (ssname SS I))            (setq   LEN (vlax-curve-getdistatparam E (vlax-curve-getendparam E))            )            (if N   (setq D  (/ LEN N)              M  N   )   (setq M (1+ (fix (/ LEN D))))            )            (repeat (1- M)   (if (setq PT (vlax-curve-getpointatdist E D))      (vl-cmdf ".break" (list E PT) PT)   )   (setq E (entlast))            )            (setq I (1+ I))        )    )    (command "_.ucs" "p");;--------

pfd8667

龙龙仔您好!



不好意思又打搅您了,我不懂编程,您在上面写的程序,我不知怎么用,见笑了,比如网上的VBA程序也不知如何拷贝下来使用请指教,谢谢了,

龙龙仔

表示程序要增加下列两句 (command "_.ucs" "");;--------
......... (command "_.ucs" "p");;--------

pfd8667

龙龙仔您好!


不好意思!还是没懂,是不是将这两句加在原程序里,但我不知加在那位置?麻烦您讲详细点好吗?谢谢了

小灰345

支持此贴！可以定距或者定数等分线段和弧线后并打断！！！
学习了！