一键偏移块内对象

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"

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

[源码] 一键偏移块内对象

本帖子中包含更多资源

点评