求助

D~~S

我想建一个图层并置为当前 怎么弄呢

xyp1964

;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(mkla"D~~S"1)

D~~S

(defun c:bz (/ x x1 x2 x3 x4 h)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq x (getpoint "原图点:"))
  (setq h (getdist x "\n 线长:"))
  (setq x1 (polar x (* pi 0.25) h))
  (setq x2 (polar x (* pi 0.75) h))
  (setq x3 (polar x (* pi 1.25) h))
  (setq x4 (polar x (* pi 1.75) h))
  (command "layer" "n" "标注" "c" "5" "标注" "")
  (command "line" x1 x3 "")
  (command "line" x2 x4 "")
  (prin1)
)
(prompt " \n<< c:bz >> 程序设计、作者 D~S")
(prin1)
可是我想要的图层不能置为当前

xyp1964

试试这个：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthre...threadid=325268
(load"xyp_lib")

(defun c:bz (/ x x1 x2 x3 x4)
  (cmdla0)
  (setq        x  (getpoint "原图点 : ")
        h  (udist 1 "" "\n线长" h x)
        x1 (polar x (* pi 0.25) h)
        x2 (polar x (* pi 0.75) h)
        x3 (polar x (* pi 1.25) h)
        x4 (polar x (* pi 1.75) h)
  )
  (mkla"标注"4)
  (command "line" x1 x3 "")
  (command "line" x2 x4 "")
  (cmdla1)
)
(prompt " \n<< c:bz >> 程序设计、作者 D~S")
(prin1)
[/php]

nuance

回3楼：
(command "layer" "m" "标注" "c" "5" "标注" "")

czg09180274

(setvar "clayer" "XXX")

“XXX”为要置为当前层的图层名。

xyp1964

须考虑的问题：
1. 指定的图层如果不存在就建新层并将其设为当前层。
2.指定的图层如果存在就结冻、并将其设为当前层。
用 if 判断
程序及实例：(mkla"标注"5)
[php]
(defun mkla (name color)
  (If (= (Tblsearch "layer" name) nil)
    (Command "layer" "m" name "c" color name "")
    (Command "layer" "t" name "s" name "c" color name "")
  )
)
[/php]