[求助]：请问CAD2002中有没有命令把选择的标注所用的标注样式置为当前标注样式？

柔柔

是我错了，忘了中间有个选择步骤，加个pause 即可，刚看到，没及时回帖，对不起！
(defun C:XX ()
(command "dimstyle" "R" "" pause)
(command "graphscr")
)

大尾巴狼

柔柔您太客气了
太完美了
谢谢
谢谢

刚才在试着能不能把这个与“选择置为当前层”连起来一次搞定，嘿嘿

真的很谢谢你

popxi

最初由 柔柔 发布
[B]举手之劳，给你编一个，我自己是不需要的。

[CODE]
  
(defun C:XX (/ elist layer_name dim_type)
  (setq     elist (entget (car(entsel)))
       layer_name (cdr (assoc 8  elist))
... [/B]

呵呵，什么时候这么热心了和有耐性了？*-*7 *-*7 *-*7 *-*7 *-*7 *-*7

柔柔

2. 
   
3.   [FONT=courier new]
   
4. (defun C:XX (/ elist layer_name dim_type)
   
5.    (setq   elist (entget (car(entsel)))
   
6.       layer_name (cdr (assoc 8  elist))
   
7.         dim_type (cdr (assoc 3  elist))
   
8.    )
   
9.    (command "layer" "S" layer_name "")
   
10.    (if dim_type
    
11.       (command "dimstyle" "R" dim_type)
    
12.    )
    
13.    (command "graphscr")
    
14.    (princ)
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun C:XX (/ elist layer_name dim_type)<br />    (setq   elist (entget (car(entsel)))<br />       layer_name (cdr (assoc 8  elist))<br />         dim_type (cdr (assoc 3  elist))<br />    )<br />    (command "layer" "S" layer_name "")<br />    (if dim_type<br />       (command "dimstyle" "R" dim_type)<br />    )<br />    (command "graphscr")<br />    (princ)<br /> ) <br />   [/FONT]<br />

复习复习嘛，免得忘记了被你耻笑。刚才觉得格式不漂亮所以改了重发。申明：我一向热心和有耐性，温柔的平方嘛，呵呵～～～*-*7 *-*7 *-*7

popxi

最初由 柔柔 发布
[B][CODE]
  复习复习嘛，免得忘记了被你耻笑。刚才觉得格式不漂亮所以改了重发。申明：我一向热心和有耐性，温柔的平方嘛，呵呵～～～
   )... [/B]

哎呀呀，真受不了你了，越来越厉害了。好佩服你，在线时间这么长了，最近看来你很轻松嘛，没事老网这里跑。哈哈。。
*-*7 *-*7 *-*7 *-*1 *-*1

大尾巴狼

喜出望外
柔柔怎么谢你才好？辛苦了

好用极了！

leonjoy

楼上各位高手：我对编程一窍不通，所以你们的程序我也看不懂，柔柔贴上去的程序我加载以后，执行xx命令以后选择其中一个标注，好象随之改变的只有颜色变化了，其他的如箭头大小、文字高度都没有什么变化啊！望赐教！

大尾巴狼

最初由 leonjoy 发布
[B]楼上各位高手：我对编程一窍不通，所以你们的程序我也看不懂，柔柔贴上去的程序我加载以后，执行xx命令以后选择其中一个标注，好象随之改变的只有颜色变化了，其他的如箭头大小、文字高度都没有什么变化啊！望赐教！ [/B]

柔柔写的这个很好用的，就像我想要达到的目的，很完美的做到了：就是把点选的图形中的标注所在的层及所用的标注样式置为当前。其他什么都不会变了，你想要他怎样呢？当然你也可以点选其他只是把图层置为当前
不知道我说清楚了没

leonjoy

我按你说的那样做了！我没有按你们上面讨论的设置按钮，只是作为一个LISP程序加载了，我执行xx命令，选中一个标注以后（我选中的是一个角度标注），再做另外一个角度标注的时候，图层是变过来了，但角度的精度没有变化，箭头大小没有变化，文字高度也是小得离谱，不知道我是在哪个环节出了问题！希望高手们耐心赐教！

jkcmmc

我一直在找，终于给我找到了，pause, graphscr太完美了,终于去掉了讨厌的文本窗口。

范璇

看看标注菜单下'更新'行不行,

大尾巴狼

用着好用，回顾一下，吃水不忘挖井人，再谢谢 柔柔 长老

pdwkyg

为什么我的不行呢?我照着
(defun C:XX ()
(command "dimstyle" "R" "" pause)
(command "graphscr")
)
复制进去,却一直说我"错误,函数被取消"?

柔柔

把这么老的帖也翻出来了，哈哈～～～
我还是坚持认为，尺寸标注样式不宜多，我通常只有一个，因为我使用图纸空间。
一个标注样式了，就不需要这么累地考虑这个问题了，
至于用选择对象使得对象所在的图层切换成当前层，AutoCAD自己就有这个功能，不需要用户动脑筋。
这么做还是不舒服，毕竟多了一道切换图层的操作，

我的做法是随便在哪个层标注，想在哪就在哪，完后（一段时间后）进行处理，让尺寸标注自动到标注层，作为原理程序，见下面代码：
[PHP]
(defun c:test (/ layern colorn sset sslen elist ename)
  (setq        layern "DIMENSION" ;; 尺寸标注图层名
        colorn "7"           ;; 尺寸标注图层颜色
  )
  (if (null (tblsearch "layer" layern))
    (command "_.LAYER" "_M" layern "_C"        colorn "")
  )
  (setq        sset  (ssget "X" '((0 . "DIMENSION")))
        sslen (sslength sset)
  )
  (while (> sslen 0)
    (setq elist        (entget (ssname sset (setq sslen (1- sslen))))
          ename        (cdr (assoc -1 elist))
    )
    (command "_CHANGE" ename "" "P" "LA" layern "")
  )
)[/PHP]

zzsong 可以来看看，我跟你说的“后处理”就是这个意思，如果扩展到其他对象，那就可以随心所欲绘图了，不必考虑切换图层的问题了。

joy7501

如果使用不同比例标注的地方不多，只有2、3处，那么用特性修改（CH）改一下，再将其用格式刷(MA)刷到需要用到的地方即可。如用到的地方比较多，最好还是多定制几个不同比例的标注样式。最好是不同比例的按一定顺序标，检查一下以免出错。

不会编程，就不叫会CAD。我不会编程，所以我不会CAD，哈哈.....!谁叫我太懒，不想记代码。
编程的语言太多了，不知何时能够出个通用版的，大小软件通杀。