414249149 发表于 2025-8-19 20:38:40

一键偏移块内对象

;; 一键偏移块内对象
;; 作者: 小七月兔子

(defun c:nct (/ ent dist pt)
(setvar "CMDECHO" 0)
(princ "\n选择嵌套对象: ")
(command "._ncopy" "\\" "" "_non" '(0 0) "_non" '(0 0))

(if (and (setq ent (entlast))
         (setq dist (getdist "\n指定偏移距离: "))
         (setq pt (getpoint "\n指定偏移方向: ")))
    (progn
      (command "._offset" dist ent pt "")
      (entdel ent)
      (princ "\n完成")
    )
)

(setvar "CMDECHO" 1)
(princ)
)

(princ "\n一键偏移块内对象命令已加载: NCT")

sachindkini 发表于 2025-8-19 21:07:41

感谢分享......

白山茶 发表于 2025-8-20 10:15:36

有动图演示吗

qifeifei 发表于 2025-8-20 10:25:32


有动图演示吗

qifeifei 发表于 2025-8-20 10:28:55

白山茶 发表于 2025-8-20 10:15
有动图演示吗

实测 挺好用的 非常棒

paulpipi 发表于 2025-8-20 10:42:08

这个功能很实用

oysheji 发表于 2025-8-20 13:41:40

这个好像直接输入nc就可以了吧，有没有框选的，选多个块内对象的

kozmosovia 发表于 2025-8-21 11:22:00

点取直线的话，就和nc本身一个效果，多段线或曲线就有不同了。这功能本身也没啥技术含量。

wuyicai 发表于 2025-8-21 11:32:37

感谢大佬，很实用的功能

qazxswk 发表于 2025-9-17 15:43:40

一般见到的是写成"_.ncopy"，很少看到这样写"._ncopy"
页: [1] 2
查看完整版本: 一键偏移块内对象