chtword 发表于 2012-3-16 10:52:39

请问有可以把选中的标注置为当前标注的插件吗?

请问有可以把选中的标注置为当前标注的插件吗?

chg 发表于 2012-3-16 13:00:51

本帖最后由 chg 于 2012-3-16 13:01 编辑

这个不需要插件，只要一个简单的小程序就可以了，我给你一个例子吧。我自己以前写的。
;;;将当前标注样式更改为选中的尺寸对应的标注样式
(defun c:ds (/ diment err old-osmode old-ortho old-cmdecho)
; (setsysvar)
(setvar "cmdecho" 0)
(setvar "errno" 0)
(setq diment (entsel "\n选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"))
(setq err (getvar "errno"))
(while (/= err 52)
    (if      (= err 7)
      (progn
      (setvar "errno" 0)
      (setq diment (entsel "没有选中.\n选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"))
      (setq err (getvar "errno"))
      )
      (if (/= (cdr (assoc 0 (entget (car diment)))) "DIMENSION")
      (progn
          (setvar "errno" 0)
          (setq
            diment (entsel
                     "所选对象不是尺寸标注.\选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"
                     )
            )
          (setq err (getvar "errno"))
          )
      (setq err 52)
      )
      )
    )
(if (= (getvar "errno") 52)
    (exit)
    )
(command "_.dimstyle" "" "" diment)
;(setsysvar)
(princ)
)

vlisp2012 发表于 2012-3-16 19:11:44

多谢楼上的分享。

幸福是真 发表于 2014-2-21 16:14:29

谢谢二楼回复

yefei812678 发表于 2024-5-21 09:14:05

谢谢二楼回复
页: [1]
查看完整版本: 请问有可以把选中的标注置为当前标注的插件吗?