有一个问题想请教飞哥

SWAYWOOD

我想用lisp新建一个标注样式如sw10，然后将该样式的文字样式修改为已有文字样式如sm,将标注比例设置为10，怎么样实现？我实在想不出来……

spring

看帮助文件里的标注变量

meflying

to spring:这样是不行的，，，，具体组码意义再去参考帮助文件中的DXF部分：

2. (defun MakeDimStyle (Name TextStyle TextHeight DimScale / Dxf)
3.    (setq Dxf '((0 . "DIMSTYLE")   (100 . "AcDbSymbolTableRecord")
4.              (100 . "AcDbDimStyleTableRecord") (70 . 0) (43 . 3.75)
5.              (73 . 0) (74 . 0) (77 . 1) (78 . 8) (141 . 2.5)
6.              (143 . 0.0393701) (171 . 3) (172 . 1) (271 . 2)
7.              (272 . 2) (274 . 3) (278 . 44) (283 . 0) (284 . 8)))
8.    (setq Dxf (append Dxf (list
9.          (cons 2 Name)
10.          (cons 140 TextHeight)
11.          (cons 40 DimScale)
12.          (cons 41 TextHeight)
13.          (cons 42 (/ TextHeight 4.0))
14.          (cons 44 (/ TextHeight 2.0))
15.          (cons 147 (/ TextHeight 4.0))
16.          (cons 340 (tblobjname "style" TextStyle)))))
17.    (entmake Dxf)
18. )
19. (defun EditDimStyle (Name / dimst)
20.    (setq dimst (entget (tblobjname "dimstyle" Name)))
21.    (setq dimst (subst (cons 41 15.0) (assoc 41 dimst) dimst))
22.    (entmod dimst)
23. )

(defun MakeDimStyle (Name TextStyle TextHeight DimScale / Dxf)    (setq Dxf '((0 . "DIMSTYLE")   (100 . "AcDbSymbolTableRecord")              (100 . "AcDbDimStyleTableRecord") (70 . 0) (43 . 3.75)              (73 . 0) (74 . 0) (77 . 1) (78 . 8) (141 . 2.5)              (143 . 0.0393701) (171 . 3) (172 . 1) (271 . 2)              (272 . 2) (274 . 3) (278 . 44) (283 . 0) (284 . 8)))    (setq Dxf (append Dxf (list          (cons 2 Name)          (cons 140 TextHeight)          (cons 40 DimScale)          (cons 41 TextHeight)          (cons 42 (/ TextHeight 4.0))          (cons 44 (/ TextHeight 2.0))          (cons 147 (/ TextHeight 4.0))          (cons 340 (tblobjname "style" TextStyle)))))    (entmake Dxf) ) (defun EditDimStyle (Name / dimst)    (setq dimst (entget (tblobjname "dimstyle" Name)))    (setq dimst (subst (cons 41 15.0) (assoc 41 dimst) dimst))    (entmod dimst) )

SWAYWOOD

多谢飞哥，我再仔细琢磨一下，谢谢……

alin

如果你的当前标注型式合适，以下三句就可以了 (SETVAR "DIMTXSTY" "SM")
(SETVAR "DIMSCALE" 10)
(COMMAND "-DIMSTYLE" "S" "SW10")

SWAYWOOD

多谢……

spring

meflying发表于2004-5-25 22:30:00to spring:这样是不行的，，，， 具体组码意义再去参考帮助文件中的DXF部分： (defun MakeDimStyle (Name TextStyle TextHeight DimScale / Dxf...

不试不知道，一试还真的不行