注册 登录
明经CAD社区 返回首页

自贡黄明儒的个人空间 http://www.mjtd.com/?376881 [收藏] [复制] [分享] [RSS]

日志

标注消零

热度 2已有 805 次阅读2014-9-24 08:44 |系统分类:应用

;;标注消零
(defun c:bs (/ CMD1 OSM1)
  (setq osm1 (getvar "osmode"))
  (setq cmd1 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "DIMZIN" 8)    ;标注消零
  (setvar "DIMAzin" 2)    ;角度消零
  (cond ((setq ss (ssget "_+.:E:S" '((0 . "DIMENSION"))))
(setq e (cdr (assoc 3 (entget (ssname ss 0)))))
(command "-DIMSTYLE" "S" e "Y")
)
(T
(command "-DIMSTYLE" "S" (getvar "DIMSTYLE") "Y")
)
  )
  (setvar "osmode" osm1)
  (setvar "cmdecho" cmd1)
  (princ)
)

路过
1

雷人
1

握手

鲜花

鸡蛋

刚表态过的朋友 (2 人)

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-10-15 21:56 , Processed in 0.092515 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部