社区 › AutoLISP/Visual LISP 编程技术 › [求助]请高手帮忙看看这个"线段等分打断"程序为什么会'认生"

龙龙仔 发表于 2005-3-31 12:24:00

(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)
             MN
)
(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 发表于 2005-3-31 14:40:00

本帖最后由 作者 于 2005-3-31 16:53:20 编辑

龙龙仔您好!



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

龙龙仔 发表于 2005-3-31 17:08:00

表示程序要增加下列两句


(command "_.ucs" "");;--------<BR>.........


(command "_.ucs" "p");;--------

pfd8667 发表于 2005-3-31 19:19:00

龙龙仔您好!


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

小灰345 发表于 2015-2-25 13:04:06

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

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