线性标注（不能循环和返回初始层）

冒个烟圈 · 发表于 2015-11-13 20:22:08

；；无聊瞎折腾了个标注，有2个问题点不会弄（1，不能循环标注  2，不能返回到初始图层）
；；请高手们帮忙，指点完善这两个功能

(defun c:NB()
(setvar "cmdecho" 0)
(if *dec:ke
*dec:ke
(setq *dec:ke 3)
  )
(setq jd (getint (strcat "\n指定标注精度(最大8位)\n>>>当前精度=<"
                              (vl-prin1-to-string *dec:ke)
                              ">: "
                     )
            )
   )
(if (null jd)
   (setq jd *dec:ke)
   (setq *dec:ke jd)
)
(setq k (getvar "CLAYER"))
(setq layer "dim")
(if (not (tblsearch "layer" layer ))
   (progn
      (command "layer" "new" "dim" "s" "dim" "C" 3 "" "L" "Continuous" "" "LW" 0.15 "" "")
   )
   )
(setvar  "CLAYER" layer) ；标注到dim层
(command "dim" "dec" jd "exit" "dimlinear")；；；想让此句循环执行标注
(setvar "cmdecho" 1)
  (setvar  "CLAYER" k)；；；想让此句能返回到dim层的上一图层
  (princ)
);defun

该贴已经同步到冒个烟圈的微博

xyp1964 · 发表于 2015-11-14 00:01:13

;; tt(水平线性标注)
(defun c:tt ()
(setvar "cmdecho" 0)
(setq jd (Uint 1 "" "标注精度" jd))
(setq la (getvar "CLAYER"))
(if (not (tblsearch "layer" "dim"))
(command "layer" "new" "dim" "s" "dim" "C" 3 "" "L" "Continuous" "" "LW" 0.15 "" "")
)
(setvar "CLAYER" "dim")
(command "dim1" "dec" jd)
(while (setq s1 (entsel "\n选择实体<退出>: "))
(command "dimlinear" "" s1 pause)
)
(setvar "cmdecho" 1)
(setvar "CLAYER" la)
(princ)
)

冒个烟圈 · 发表于 2015-11-14 13:54:00

xyp1964 发表于 2015-11-14 00:01

谢谢院长解惑。。如果我想标注的是两个点，(while (setq po1 (getpoint"\n选择第一点<退出>: "))
                                                                        (setq po2 (getpoint ”\n选择第二点:))
                                                                        (command "dimlinear" po1 po2 pause)
                                                               )
我能想到的只能是这个，请问还有更好的方法吗？

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

[提问] 线性标注（不能循环和返回初始层）