to spring:这样是不行的,,,,具体组码意义再去参考帮助文件中的DXF部分:- (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)
- )
|