[求助]取出当前标注样式数据

小妹丁

现在好少有时间看LISP书，忘掉很多东西，只好请各位提点！

取出当前标注样式中的字高，为后面的程序使用

ZZXXQQ

(CDR (ASSOC 140 (TBLSEARCH "DIMSTYLE" (GETVAR "DIMSTYLE"))))

小妹丁

谢谢楼上先。

再有个问题：

  用(SETQ SSG (SSGET '((0 . "DIMENSION"))))选出尺寸标注后，要将其中的文字样式“A” 改成新的“B”，好象是340项如何改？

ZZXXQQ

3. ;明经 ZZXXQQ 改尺寸样式 2007.10.3
4. (DEFUN C:TT ()
5. (SETVAR "CMDECHO" 0)
6. (IF (AND (PRINC "\nSelect Dimension(s) 选择尺寸 :")
7.           (SETQ SS (SSGET '((0 . "DIMENSION"))))
8.     (SETQ DIMS (GETSTRING "\nEnter DimStyle Name 尺寸样式名 :"))
9.      ) (PROGN
10.   (SETQ I -1)
11.   (REPEAT (SSLENGTH SS)
12.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
13.          ENT (SUBST (CONS 3 DIMS) (ASSOC 3 ENT) ENT))
14.    (ENTMOD ENT)
15.   )
16. ))
17. (SETVAR "CMDECHO" 1)
18. (PRINC)
19. )

;明经 ZZXXQQ 改尺寸样式 2007.10.3 (DEFUN C:TT () (SETVAR "CMDECHO" 0) (IF (AND (PRINC "\nSelect Dimension(s) 选择尺寸 :")           (SETQ SS (SSGET '((0 . "DIMENSION"))))     (SETQ DIMS (GETSTRING "\nEnter DimStyle Name 尺寸样式名 :"))      ) (PROGN   (SETQ I -1)   (REPEAT (SSLENGTH SS)    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))          ENT (SUBST (CONS 3 DIMS) (ASSOC 3 ENT) ENT))    (ENTMOD ENT)   ) )) (SETVAR "CMDECHO" 1) (PRINC) )

小妹丁

ZZXXQQ版主，我要的是改尺寸标注中的“文字样式”。

因为有些尺寸重要性不同，以不同的文字样式区别提示，方便表达和理解。

小妹丁

(defun c:dTS (/ SS I ss_VLA TSTYLE)
;;;小妹丁 2007.10.07

;;; 指定新的文字样式给选取的标注

;;;
  (command "_.undo" "be")
  (VL-LOAD-COM)
  (setq AcadObject   (vlax-get-acad-object)
 AcadDocument (vla-get-ActiveDocument Acadobject)
 mSpace      (vla-get-ModelSpace Acaddocument)
  )
  (setq ss (ssget '((0 . "DIMENSION")))
 i  0
  )
  (setq tstyle (STRCASE (getstring "\n新的文字样式<A>")))
  (REPEAT (SSLENGTH ss)
    (SETQ ss_VLA (vlax-ename->vla-object (SSNAME ss i)))
    (vla-put-TextStyle ss_VLA TSTYLE)
    (vla-Regen AcadDocument acAllViewports);;; 将文字样式改变为新的样式
    (setq i (1+ i))
  )
  (command "_.undo" "e")
  (princ)
)
花左D时间，睇下书，终于完成了。