裁剪框内外，有点像extrim
本帖最后由 wzg356 于 2023-7-16 11:00 编辑这个功能本意是“按范围阵列填充对象”http://bbs.mjtd.com/thread-188196-1-1.html的补充，内容也包含在这个帖子里面
功能与扩展工具里的extrim差不多，需要http://bbs.mjtd.com/thread-188196-1-1.html里面的“其他函数.lsp”支持
另开贴主要便于需要的朋友搜索
可以参考贱人工具箱的区域删除
[*];选择集/图元复制,比 command快的多--(一级)---
[*](defun slcopy (ss p p1 / i)
[*](if (= (type ss) 'ENAME) (setq ss (ssadd ss (ssadd))))
[*](setq i -1)
[*](repeat (sslength ss)
[*] (vla-Move
[*] (vla-copy (en2obj (ssname ss (setq i (1+ i)))))
[*] (vlax-3d-point (trans p 1 0))
[*] (vlax-3d-point (trans p1 1 0))
[*] )
[*])
[*])
[*];选择集/图元移动,比 command快的多--(一级)---
[*](defun slmove (ss p p1 / i)
[*](if (= (type ss) 'ENAME) (setq ss (ssadd ss (ssadd))))
[*](setq i -1)
[*](repeat (sslength ss)
[*] (vla-Move
[*] (en2obj (ssname ss (setq i (1+ i))))
[*] (vlax-3d-point (trans p 1 0))
[*] (vlax-3d-point (trans p1 1 0))
[*] )
[*])
[*])
这个问题，原先帖子啊，用了复制函数，移动是下面一个，
原帖的说法有误，不是比用COMMAND快，贴上说下这个问题。
本帖最后由 F海市蜃楼 于 2023-7-15 13:21 编辑
F海市蜃楼 发表于 2023-7-15 13:13
好的，我试试看
刚试了一下好像没用，不知道什么原因 出现以下提示
命令: jq
择要裁剪的封闭曲线"*OLYLINE,SPLINE,CIRCLE,ELLIPSE"no function definition: OUTCURVEPT
C:\Users\Administrator\Desktop
不错不错，是两个命令是吧？
F海市蜃楼 发表于 2023-7-15 12:46
不错不错，是两个命令是吧？
wk—挖空，jq—截取 wzg356 发表于 2023-7-15 12:56
wk—挖空，jq—截取
好的，我试试看 F海市蜃楼 发表于 2023-7-15 13:19
刚试了一下好像没用，不知道什么原因 出现以下提示
命令: jq
择要裁剪的封闭曲线"*OLYLINE,SPLINE,CIRC ...
需要另一个帖子里的其它函数支持 wzg356 发表于 2023-7-15 13:28
需要另一个帖子里的其它函数支持
哦哦，怪不得 出现这个是正常的吗？还需要手动点？
页:
[1]
2