标注随层，该怎么编写？

smartstar · 发表于 2012-4-28 18:50:01

亦在求解。

caoyin · 发表于 2012-4-28 19:12:32

本帖最后由 caoyin 于 2012-4-28 19:13 编辑

(setq EN (entsel "\n选择标注对象: ")
OBJ (vlax-ename->vla-object(car EN))
)
(vla-put-dimensionlineColor OBJ 256)
(vla-put-extensionlineColor OBJ 256)
(vla-put-textColor OBJ 256)

smartstar · 发表于 2012-4-30 11:52:26

本帖最后由 smartstar 于 2012-4-30 17:41 编辑

;;标注随层
(defun c:sc ()
  (setq ss (ssget '((0 . "DIMENSION"))))
  (setq n 0)
  (repeat (sslength ss)
(setq EN  (cdr (assoc -1 (entget (ssname ss n)))))
(setq OBJ (vlax-ename->vla-object  EN))
(princ en)
(vla-put-dimensionlineColor OBJ 256)
(vla-put-extensionlineColor OBJ 256)
(vla-put-textColor OBJ 256)
(setq n (1+ n))
  )
  (princ)
)

linheyuanpcb · 发表于 2012-4-30 12:03:14

MaKaiJin 发表于 2011-11-8 08:45
(setq ss (ssget "X" '((0 . "DIMENSION"))))
(command "Chprop" ss "" "LA" "标注层" "")

(defun c:dimoe()
(command "_dimordinate" pause pause)
(setq ss (ssget "X" '((0 . "DIMENSION"))))
(command "Chprop" ss "" "LA" "标注层" "")
)
这个可以行

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