求重复dim命令功能的lsp

caoyin

;;不用“跪求”，没人受得起

;;想不到你的要就比我想象的越来越简单，叹

(defun c:ddd (/ lst ss)
  (setq lst (list '(0 . "dim*")
                  (cons 3 (getvar "dimstyle"))
                  (cons 410 (getvar "ctab"))
            )
  )
  (princ "\n选择标注 <全选>: ")
  (if (or (setq ss (ssget lst))
          (setq ss (ssget "_x" lst))
      )
    (command "_.dim" "update" ss "" "_exit")
  )
  (princ)
)

狂刀无痕

支持！请caoyin大哥也编一个，让我按一个命令，就可以把施工图画完了。谢谢

caoyin

支持！请caoyin大哥也编一个，让我按一个命令，就可以把施工图画完了。谢谢

无痕版主别取笑啦...

caoyin

caoyin大哥，谢谢你了。你的程序按一个个去切换当前标注样式也是可以全部能够实现的，但是如果有N个的话，那我就会N次晕死过去。我的目的是把这些步骤合整为一，用程序自己去处理，把每次切换当前标注样式的处理结果储存起来，也就是只用一个程序就能把它全部完成，并不是一个个这样去处理。caoyin大哥，我知道你明白我的意思了。做好人做到底，再帮我最后完善一下。谢谢啦！

10楼的程序不是一次性全部处理吗？

caoyin

(defun c:ddd (/ GetDimStyleList layout dst ss)
  (defun GetDimStyleList (/ ds lst)
    (while (setq ds (tblnext "dimstyle" (not ds)))
      (setq ds  (cdr (assoc 2 ds)))
      (if (not (member ds '("_TCH_ARCH" "_TCH_ARROW")))
        (setq lst (cons ds lst))
      )
    )
  )
  (setq layout (cons 410 (getvar "ctab"))
        dst    (getvar "dimstyle")
  )
  (foreach x (GetDimStyleList)
    (if (setq ss (ssget "_x" (list '(0 . "dim*") (cons 3 x) layout)))
      (progn
        (command "_.dimstyle" "_r" x)
        (command "_.dim" "_update" ss "" "_exit")
      )
    )
  )
  (command "_.dimstyle" "_r" dst)
  (princ)
)