crtrccrt 发表于 2019-11-9 06:24
保留原图
(command "_.erase" ss "")去掉该行
原图有保留，就是位置动了。我只想多一个绿色的块，其它的一律不动。长老你测试下就知道了。
本帖最后由 start4444 于 2019-11-9 15:16 编辑
这个应该不会动了，copy的位移操作会出错
start4444 发表于 2019-11-9 13:39
这个应该不会动了，copy的位移操作会出错
good.搞定。感谢大佬。
(defun c:TT()
(setvar "osmode" 39)
(setq bn0 (rtos (getvar "cdate")2 6))
(setq bn(strcat(substr bn0 1 8)(substr bn0 10 6)))
(prompt "请选择需变块的图元")
(setq ss(ssget))
(if ss
(progn
(setq color (getint "请输入图块的颜色号<1红 2黄 3绿 4蓝 >"))
(if (= color nil) (setq color 2))
(command "change" ss "" "p" "c" color "")
(setq p1 (getpoint "选择参考点:"))
(command "block" bn p1 ss "")
(command "oops")
(command "change" ss "" "p" "c" "bylayer" "")
(prompt "请指定插入点:")
(command "insert" bn pause "" "" "")
)
)
)
1205这样时代 发表于 2019-11-11 10:18
(defun c:TT()
(setvar "osmode" 39)
(setq bn0 (rtos (getvar "cdate")2 6))
CAD2014,加载出错
13916020908 发表于 2019-11-11 16:32
CAD2014,加载出错
提示什么错误
1205这样时代 发表于 2019-11-11 10:18
(defun c:TT()
(setvar "osmode" 39)
(setq bn0 (rtos (getvar "cdate")2 6))
优化了。大佬阔以。有空指教下我另一个贴子的问题吗？大佬。
XTdwynij 发表于 2019-11-14 10:20
优化了。大佬阔以。有空指教下我另一个贴子的问题吗？大佬。
搜集的程序，不是大佬。。
1205这样时代 发表于 2019-11-12 08:23
提示什么错误
是这样的提示
13916020908 发表于 2019-11-14 14:57
是这样的提示
你再试试，我试了没问题