裁剪框内外，有点像extrim

wzg356 · 发表于 2023-7-15 11:10:04

本帖最后由 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”支持

另开贴主要便于需要的朋友搜索

F海市蜃楼 · 发表于 2023-7-15 13:23:24

可以参考贱人工具箱的区域删除

尘缘一生 · 发表于 2023-7-15 17:31:15

;选择集/图元复制,比 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:19:56

本帖最后由 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:48

不错不错，是两个命令是吧？

wzg356 · 发表于 2023-7-15 12:56:22

F海市蜃楼发表于 2023-7-15 12:46
不错不错，是两个命令是吧？

wk—挖空，jq—截取

F海市蜃楼 · 发表于 2023-7-15 13:13:43

wzg356 发表于 2023-7-15 12:56
wk—挖空，jq—截取

好的，我试试看

wzg356 · 发表于 2023-7-15 13:28:06

F海市蜃楼发表于 2023-7-15 13:19
刚试了一下好像没用，不知道什么原因出现以下提示
命令: jq
择要裁剪的封闭曲线"*OLYLINE,SPLINE,CIRC ...

需要另一个帖子里的其它函数支持

F海市蜃楼 · 发表于 2023-7-15 13:30:26

wzg356 发表于 2023-7-15 13:28
需要另一个帖子里的其它函数支持

哦哦，怪不得

sandyvs · 发表于 2023-7-17 08:39:45

出现这个是正常的吗？还需要手动点？

账号		自动登录	找回密码
密码			注册

[源码] 裁剪框内外，有点像extrim

本帖子中包含更多资源

本帖子中包含更多资源