[求助]：如何用ENTMAKE建立DIMSTYLE?请高手指点！

Dallas_whu · 发表于 2005-11-21 09:14:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用ENTMAKE建立DIMSTYLE?请高手指点！

狂刀 · 发表于 2005-11-21 12:19:44

可先开口ｃａｄ帮助的ｄｘｆ组码部分，不过我觉得对ｄｉｍｓｔｙｌｅ用ｅｎｔｍａｋｅ不如用ｖｌａ写起来清晰

Dallas_whu · 发表于 2005-11-21 14:29:35

我只是想找一个范例，不知道有没有人写过！

cy956 · 发表于 2005-11-21 18:32:25

搜搜，别急着问。

YueFeng · 发表于 2005-11-21 19:23:13

我喜欢用EntMake生成东西。看看我的这个代码吧，你可以参照DXF组码表修改相应的定义。
[PHP];创建尺寸标注样式
(Defun YF_DIMSTYLE_100_100(/ BLKSEL BLOCK DIMSTYLE STYLE)
;创建尺寸标注中的文字样式.
(If (Not (TblSearch "STYLE" "YFCAD_Dimension"))
   ;创建文字样式.
   (SetQ STYLE (EntMakeX '((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")
                        (2 . "YFCAD_Dimension")
                        (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 0.0) (3 . "Tssdeng.shx") (4 . "hztxt.shx"))
            )
   )
   (SetQ STYLE (TblObjName "STYLE" "YFCAD_Dimension"))
)
;创建尺寸标注箭头块.
(If (Not (TblSearch "BLOCK" "_YFDBK"))
   (Progn
   (EntMake '((0 . "BLOCK")(2 . "_YFDBK")(8 . "0") (100 . "AcDbBlockReference")(70 . 0)(10 0.0 0.0 0.0)))
      (EntMake '((0 . "LINE")(100 . "AcDbEntity")(100 . "AcDbLine")(8 . "0")(10 -1 0 0)(11 0 0 0)))
      (EntMake '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(8 . "0")(100 . "AcDbPolyline")(90 . 2)(70 . 0)(43 . 0.5)(10 -0.7 -0.7)(10 0.7 0.7)))
      (EntMake '((0 . "ENDBLK")))
   )
)
(SetQ BLOCK (Cdr (Assoc 330 (EntGet (TblObjName "BLOCK" "_YFDBK")))));块记录表.
(SetQ DIMSTYLE '((0 . "DIMSTYLE")(100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord")
            (2 . "YFCAD_100_100")
            (70 . 0) (41 . 100.0) (42 . 250.0) (43 . 0.0) (44 . 250.0)
            (73 . 0) (74 . 0) (77 . 1) (140 . 300.0) (141 . 0.0) (147 . 100.0) (172 . 1)
            (174 . 1) (178 . 7) (271 . 0) (272 . 0) (279 . 2))
)
;340组码标注样式,342组码尺寸箭头块.
(SetQ DimStyle (Append DIMSTYLE (List (Cons 340 STYLE)(Cons 342 BLOCK))))
(EntMakeX Dimstyle)
)[/PHP]

81153643 · 发表于 2005-11-21 19:46:52

我是lsp初学者，高手门给点心得把

Dallas_whu · 发表于 2005-11-22 19:00:42

谢谢提供源程序，请问5楼的大侠，为什么不能用CAD里面自带的箭头呢？如建筑标记.......

szzyf · 发表于 2005-11-23 21:58:50

用系统变量OK!

YueFeng · 发表于 2005-11-27 10:01:43

最初由 Dallas_whu 发布
[B]谢谢提供源程序，请问5楼的大侠，为什么不能用CAD里面自带的箭头呢？如建筑标记....... [/B]

可以自己修改的。
我只是参照ＴＳＳＤ的尺寸样式自己用ENTMAKE方式重写。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用ENTMAKE建立DIMSTYLE?请高手指点！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

用系统变量