oe删除
oo不删除
感谢大佬 就是这个意思。。。 简单就行 。。。。 ;********************* moe 多物体偏移&删除 ***********************
(DEFUN C:MOE(/ ENT DIST PT)
(PRINC "\n请输入偏置距离\(")
(PRINC (GETVAR "OFFSETDIST"))(PRINC "\):")
(SETQ DIST (GETREAL))
(IF (= NIL DIST) (SETQ DIST (GETVAR "OFFSETDIST")))
(SETVAR "OFFSETDIST" DIST)
(SETQ ENTGRP (SSGET))
(SETQ PT (GETPOINT "方向?"))
(COMMAND "_UNDO" "M")
(SETQ COUNT 0)
(REPEAT (SSLENGTH ENTGRP)
(SETQ ENT (SSNAME ENTGRP COUNT))
(COMMAND "_.OFFSET" DIST ENT PT "")
(COMMAND "_.ERASE" ENT "")
(SETQ COUNT (1+ COUNT))
)
(PRINC "\nOK!")(PRINC)
)
这个功能经常用，谢谢大师们分享 uualice2020 发表于 2025-5-21 20:55
增加原图处理
这工具好用，给力！ ludaweb 发表于 2025-5-21 21:20
oe删除
oo不删除
用了几天 还是有问题用了oe删除原线段 o也删除了但是有时候又不删除 不知道什么原因
好像我的这个想法 不能用原有的o功能来实现不然会有冲突。。。 hhh454 发表于 2025-5-21 18:43
代码如下：启动命令tt（对话框是猫老师dcl工具自动生成）
怎么改成多选的呢？:lol
页:
1
[2]