本帖最后由 xyp1964 于 2020-11-19 23:21 编辑
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTExODQzfGUxYzExMGQwMWQyODViM2RkZDcxNGFlZTgzZjVhOWQyfDE3Mzk5MjAzMDQ%3D&request=yes&_f=.gif
 - (defun c:tt () ; tt(单线变双分解动作)
- (xyp-Start)
- (setq ss (ssget '((0 . "*pol*")))
- lst1 (xyp-Ss2List ss)
- s0 (entlast)
- )
- (foreach s1 lst1
- (xyp-Offset s1 200 nil t nil)
- (setq s2 (entlast))
- (setq ss1 (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9)))
- (setq ss1 (ssdel s1 ss1))
- (setq lst2 (xyp-Ss2List ss1))
- (xyp-delay 1000)
- (foreach x lst2
- (xyp-delay 1000)
- (xyp-Curve-Offset x 100)
- )
- (setq ss (xyp-SSelEntnext s2))
- (xyp-erase ss1)
- (setq lst (xyp-Ss2List ss))
- (foreach a (xyp-Ss2List ss)
- (xyp-delay 1000)
- (xyp-Boolean s2 a 2)
- (setq s2 (entlast))
- )
- )
- (xyp-ExplodeQf s2)
- (xyp-delay 1000)
- (xyp-ExplodeQf (xyp-SSelEntnext s0))
- (setq ss (xyp-SSelEntnext s0))
- (xyp-PeditJoin ss 0)
- (xyp-delay 1000)
- (xyp-SubUpd (xyp-SSelEntnext s0) 62 4)
- (xyp-End)
- )
|