[编程申请]：不管当前层是什么,所有标注都放在特定的层里

win-gf · 发表于 2006-11-1 11:32:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

呵呵不知道能不能实现啊?

我现在的标注的命令是

(defun-q C:da ( )
(command "_dimlinear")
(princ)
)
(defun-q C:ds ( )
(command "_dimaligned")
(princ)
)
(defun-q C:dr ( )
(command "_dimradius")
(princ)
)
(defun-q C:dd ( )
(command "_dimdiameter")
(princ)
)

不需要cad原始的标注放在固定的层里

可以是新定义一个命令绘制标注的时候把标注放在特定层里就好

谢谢啊

xyp1964 · 发表于 2006-11-1 23:36:13

[FONT=courier new](defun c:test ()
(setq ss (ssget "X" '((0 . "DIMENSION"))))
(Command "layer" "m" "标注" "c" 3 "标注" "")
(command "chprop" ss "" "la" "标注" "")
(princ)
)[/FONT]

雨箭风刀 · 发表于 2006-11-2 01:13:26

可以考虑用反应器,论坛贴过几个不同的版本,可搜索一下

win-gf · 发表于 2006-11-2 16:01:28

好像不太管用没有提示我标注啊?

我这样做

先不关有没有"标注"这一层

[PHP](defun c:test ()
  (setq oldlayer (getvar "clayer"))
  (command "clayer" "标注")
  (command "_dimlinear")
  (command "clayer" oldlayer)
  (princ)
)[/PHP]

图层换不回来啊

北斗七星 · 发表于 2006-11-2 21:01:58

我也编了一个专门用于标注的程序，命令与你的一样，也是DA,哈
在启动命令后，先让程序自动判断有无“标注”层，没有就加上，然后设置当前层，命令结束后返回刚才的层，就可以了

竹音一韵 · 发表于 2006-11-4 09:31:48

在天正就是这样的。

win-gf · 发表于 2006-11-5 11:17:39

天正兼容性不好

暗箱操作太多不喜欢

鬼哭神嚎 · 发表于 2006-11-11 10:27:19

可以这样试试（只编一个，其余自己改）
;假定尺寸都要放在DIM层
(defun c:da( / cly oldtev oldcmd)
(setq cly (getvar"clayer"))
(if (= nil (tblsearch "layer" "dim")) (command"-layer" "m" "dim") (setvar"clayer" "dim"))

(setq oldtev (getvar"texteval"))
(setq oldcmd (getvar"cmdecho"))
(setvar"cmdecho" 1)
(setvar "texteval" 1)
(command"dimlinear")
(while (/= 0 (getvar"cmdactive"))
(command pause)
)
(setvar "clayer" cly)
(setvar"texteval" oldtev)
(setvar"cmdecho" oldcmd)
(princ)
)
;不过，标注的时候不要点右键或按ESC，否则不能返回当前层
;当然，你可以加一个错误处理，即使点右键或按ESC也能返回当前层
(defun *error*(msg)
(if (/= nil cly)
(progn
(setvar"clayer" cly)
(setq cly nil)
)
)
)

jx2008 · 发表于 2006-11-13 07:39:12

这个不使很好的吗？非常好用，标注统一到图层 dim

win-gf · 发表于 2006-11-14 18:58:52

最初由鬼哭神嚎发布
[B]可以这样试试（只编一个，其余自己改）
;假定尺寸都要放在DIM层
(defun c:da( / cly oldtev oldcmd)
(setq cly (getvar"clayer"))
(if (= nil (tblsearch "layer" "dim")) (command"-layer" "m" "dim") (setvar"... [/B]

可用

谢谢你啊

真好用嘿嘿

zxdvip · 发表于 2007-9-15 01:02:50

8楼的不错，能否增加设定当前标注样式的语句。比方我的标注并不都是DIm层，内部尺寸标注，门窗标注等标注样式和图层都不一样

ps122 · 发表于 2007-9-16 10:15:25

有学习一招

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

[编程申请]：不管当前层是什么,所有标注都放在特定的层里

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子