求大佬帮忙弄个小插件

amook147

ludaweb 发表于 2025-5-21 21:20
oe删除
oo不删除

感谢大佬   就是这个意思。。。   简单就行 。。。。

gowww

;********************* 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)
)

xyp1964

shirker

这个功能经常用，谢谢大师们分享

jkop

uualice2020 发表于 2025-5-21 20:55
增加原图处理

这工具好用，给力！

amook147

ludaweb 发表于 2025-5-21 21:20
oe删除
oo不删除

用了几天 还是有问题  用了oe删除原线段   o也删除了  但是有时候又不删除   不知道什么原因
好像我的这个想法 不能用原有的o功能来实现  不然会有冲突。。。

下文没句号。

hhh454 发表于 2025-5-21 18:43
代码如下：启动命令tt（对话框是猫老师dcl工具自动生成）

怎么改成多选的呢？