CAD好像没有带基点剪切的，能用lisp实现吗

wgij007 · 发表于 2021-6-3 16:17:16

wszxf · 发表于 2021-6-3 16:17:17

(defun c:tt ()
(command "_copybase" pause (setq ss (ssget)) "")
(command "_.ERASE" ss)
)

wszxf · 发表于 2021-6-3 20:55:25

这个很简单吧
1、选择对象SS，带基点复制。
2、删除选择对象SS
1+2就等于是带基点剪切了。

wgij007 · 发表于 2021-6-4 09:03:14

wszxf 发表于 2021-6-3 20:55
这个很简单吧
1、选择对象SS，带基点复制。
2、删除选择对象SS

真感谢

zmzk · 发表于 2022-4-10 20:13:39

下面的带基点剪切的源码，是我从源泉程序里  复制过来的，给有需要的兄弟们下载！
(defun c:jq (/ pt)
(princ "\n****带基点剪切")
(and (setq pt (getpoint "\n基点: "))
      (ssget)
      (command "copybase" "non" pt "p" "" "erase" "p" "")
)
(princ)
)

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

[提问] CAD好像没有带基点剪切的，能用lisp实现吗

最佳答案