框选图形全变成绿色，然后变成块。小问题

XTdwynij

crtrccrt 发表于 2019-11-9 06:24
保留原图
(command "_.erase" ss "")去掉该行

原图有保留，就是位置动了。我只想多一个绿色的块，其它的一律不动。长老你测试下就知道了。

start4444

这个应该不会动了，copy的位移操作会出错

XTdwynij

start4444 发表于 2019-11-9 13:39
这个应该不会动了，copy的位移操作会出错

good.搞定。感谢大佬。

1205这样时代

(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 "" "" "")
    )
  )
)

13916020908

1205这样时代 发表于 2019-11-11 10:18
(defun c:TT()
  (setvar "osmode" 39)
  (setq bn0 (rtos (getvar "cdate")2 6))

CAD2014,加载出错

1205这样时代

13916020908 发表于 2019-11-11 16:32
CAD2014,加载出错

提示什么错误

XTdwynij

1205这样时代 发表于 2019-11-11 10:18
(defun c:TT()
  (setvar "osmode" 39)
  (setq bn0 (rtos (getvar "cdate")2 6))

优化了。大佬阔以。有空指教下我另一个贴子的问题吗？大佬。

1205这样时代

XTdwynij 发表于 2019-11-14 10:20
优化了。大佬阔以。有空指教下我另一个贴子的问题吗？大佬。

搜集的程序，不是大佬。。

13916020908

1205这样时代 发表于 2019-11-12 08:23
提示什么错误

是这样的提示

1205这样时代

13916020908 发表于 2019-11-14 14:57
是这样的提示

你再试试，我试了没问题