;; 一键偏移块内对象
;; 作者: 小七月兔子
(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")
网友答: 感谢分享......网友答: 有动图演示吗网友答:
有动图演示吗网友答:
实测 挺好用的 非常棒
网友答: 这个功能很实用网友答: 这个好像直接输入nc就可以了吧，有没有框选的，选多个块内对象的网友答: 点取直线的话，就和nc本身一个效果，多段线或曲线就有不同了。这功能本身也没啥技术含量。网友答: 感谢大佬，很实用的功能网友答: 一般见到的是写成"_.ncopy"，很少看到这样写"._ncopy"
;; 作者: 小七月兔子
(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")
网友答: 感谢分享......网友答: 有动图演示吗网友答:
有动图演示吗网友答:
白山茶 发表于 2025-8-20 10:15
有动图演示吗
实测 挺好用的 非常棒
网友答: 这个功能很实用网友答: 这个好像直接输入nc就可以了吧，有没有框选的，选多个块内对象的网友答: 点取直线的话，就和nc本身一个效果，多段线或曲线就有不同了。这功能本身也没啥技术含量。网友答: 感谢大佬，很实用的功能网友答: 一般见到的是写成"_.ncopy"，很少看到这样写"._ncopy"