求重复dim命令功能的lsp

ZZXXQQ

改了一下，不知行不行。

3. ;支持窗选
4. (defun c:ddd (/ GetDimStyleList layout dst ss)
5. (defun GetDimStyleList (/ ds lst)
6.   (while (setq ds (tblnext "dimstyle" (not ds)))
7.    (setq ds  (cdr (assoc 2 ds)))
8.    (if (not (member ds '("_TCH_ARCH" "_TCH_ARROW")))
9.     (setq lst (cons ds lst))
10.    )
11.   )
12. )
13. (setq pt1 (getpoint "\nFirst Corner :")
14.        pt2 (getcorner pt1 "\nNext Corner :"))
15. (setq layout (cons 410 (getvar "ctab"))
16.        dst    (getvar "dimstyle"))
17. (foreach x (GetDimStyleList)
18.   (if (setq ss (ssget "_W" PT1 PT2 (list '(0 . "dim*") (cons 3 x) layout))) (progn
19.    (command "_.dimstyle" "_r" x)
20.    (command "_.dim" "_update" ss "" "_exit")
21.   ))
22. )
23. (command "_.dimstyle" "_r" dst)
24. (princ)
25. )

;支持窗选 (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 pt1 (getpoint "\nFirst Corner :")        pt2 (getcorner pt1 "\nNext Corner :")) (setq layout (cons 410 (getvar "ctab"))        dst    (getvar "dimstyle")) (foreach x (GetDimStyleList)   (if (setq ss (ssget "_W" PT1 PT2 (list '(0 . "dim*") (cons 3 x) layout))) (progn    (command "_.dimstyle" "_r" x)    (command "_.dim" "_update" ss "" "_exit")   )) ) (command "_.dimstyle" "_r" dst) (princ) )