如何在acad.lsp中定义需要的标注样式，就像定义图层一样

SWAYWOOD · 发表于 2004-7-27 20:16:00

如何在acad.lsp中定义需要的标注样式，就像定义图层一样，下面是包含标注样式swaywood的dwg文件，请帮帮忙，这个对设计出图的同一性很有好处，设计中心是可行的，做模板也可以，但总觉得不方便，不知能不能解决……

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

alin · 发表于 2004-7-27 21:08:00

(defun c:mkdim ()
   (if (tblsearch "STYLE" "SM")
   (entmake (list
   '(0 . "DIMSTYLE")
   '(100 . "AcDbSymbolTableRecord")
   '(100 . "AcDbDimStyleTableRecord")
   '(2 . "swaywood")
   '(70 . 0)
   '(3 . "")
   '(4 . "")
   '(5 . "")
   '(6 . "")
   '(7 . "")
   '(40 . 1.0)
   '(41 . 2.5)
   '(42 . 0.625)
   '(43 . 3.75)
   '(44 . 1.25)
   '(45 . 0.0)
   '(46 . 0.0)
   '(47 . 0.0)
   '(48 . 0.0)
   '(140 . 3.0)
   '(141 . 2.5)
   '(142 . 0.0)
   '(143 . 0.0393701)
   '(144 . 10.0)
   '(145 . 0.0)
   '(146 . 1.0)
   '(147 . 0.625)
   '(71 . 0)
   '(72 . 0)
   '(73 . 0)
   '(74 . 1)
   '(75 . 0)
   '(76 . 0)
   '(77 . 1)
   '(78 . 8)
   '(170 . 0)
   '(171 . 3)
   '(172 . 1)
   '(173 . 0)
   '(174 . 0)
   '(175 . 0)
   '(176 . 3)
   '(177 . 3)
   '(178 . 3)
   '(270 . 2)
   '(271 . 0)
   '(272 . 0)
   '(273 . 2)
   '(274 . 3)
   (cons 340 (tblobjname "style" "SM"))
   '(275 . 0)
   '(280 . 0)
   '(281 . 0)
   '(282 . 0)
   '(283 . 0)
   '(284 . 8)
   '(285 . 0)
   '(286 . 0)
   '(287 . 5)
   '(288 . 0)
   )
   )
   )
   )

SWAYWOOD · 发表于 2004-7-28 20:49:00

非常感谢，我可以好好学习一下了

SWAYWOOD · 发表于 2004-7-28 21:10:00

这样的标注样式我基本了解了，但如果是swaywood样式下的子样式（如直径、半径等）又如何定义了？麻烦再帮帮看看！多谢……，另外如果已知一个标注样式，要蒋这个标注样式作为基础样式，改一改测量比例定义成其它的标注样式有没有更快捷的办法！

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:jvve4vggalw.dwg
下载次数:0 文件大小:46.69 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

alin · 发表于 2004-7-29 00:22:00

在一个基础标注式样上稍作改变建立新的式样的方法和下面的建立子式样的方法差不多，就是先把基础式样设成当前标注式样。然后修改系统变量，再save. 如果要用ActiveX方法，看看Copyfrom method的帮助。

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:dlnnyuplir1.LSP
下载次数:0 文件大小:1.3 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

SWAYWOOD · 发表于 2004-7-29 17:45:00

再次感谢！
请问如何获取一个标注样式的组码？

SWAYWOOD · 发表于 2004-7-29 20:18:00

还有，我在运行程序时总是弹出文本窗口，不知为何？
有时还出现样式替代

龙龙仔 · 发表于 2004-7-30 08:03:00

指令: (tblsearch "dimstyle" "standard")
((0 . "DIMSTYLE") (2 . "STANDARD") (70 . 0) (3 . "") (4 . "") (5 . "") (6 . "")
(7 . "") (40 . 1.0) (41 . 2.5) (42 . 0.625) (43 . 4.25) (44 . 1.25) (45 . 0.0)
(46 . 0.0) (47 . 0.02) (48 . 0.02) (140 . 2.5) (141 . 1.5) (142 . 0.0) (143 .
0.0393701) (144 . 1.0) (145 . 0.0) (146 . 1.0) (147 . 0.625) (71 . 0) (72 . 0)
(73 . 0) (74 . 1) (75 . 0) (76 . 0) (77 . 1) (78 . 8) (170 . 0) (171 . 3) (172
. 0) (173 . 0) (174 . 0) (175 . 0) (176 . 4) (177 . 2) (178 . 6) (270 . 2) (271
. 2) (272 . 2) (273 . 2) (274 . 3) (340 . ) (275 . 0) (280
. 0) (281 . 0) (282 . 0) (283 . 1) (284 . 8) (285 . 0) (286 . 0) (287 . 3) (288
. 0))

指令: (entget(tblobjname "dimstyle" "standard"))
((-1 . ) (0 . "DIMSTYLE") (105 . "44A1") (330 . ) (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2
. "STANDARD") (70 . 0) (41 . 2.5) (42 . 0.625) (43 . 4.25) (44 . 1.25) (47 .
0.02) (48 . 0.02) (73 . 0) (77 . 1) (78 . 8) (79 . 2) (140 . 2.5) (141 . 1.5)
(143 . 0.0393701) (147 . 0.625) (171 . 3) (176 . 4) (177 . 2) (178 . 6) (179 .
2) (271 . 2) (272 . 2) (274 . 3) (284 . 8) (340 . ))

alin · 发表于 2004-7-30 10:40:00

1. (setvar "cmdecho" 0)
2. "tblsearch" before "entmake"

SWAYWOOD · 发表于 2004-7-30 17:01:00

多谢二位大侠！

如何在acad.lsp中定义需要的标注样式，就像定义图层一样

发表回复

精选推荐