设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 程序（函数）库 › LISP/VLISP函数库 › [LISP函数]：用ENTMAKE建立DIMSTYLE！
返回列表 发新帖
查看: 3053|回复: 13

[LISP函数]：用ENTMAKE建立DIMSTYLE！

[复制链接]
Dallas_whu
发表于 2005-11-21 09:14:52 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

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

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

狂刀
发表于 2005-11-21 12:19:44 | 显示全部楼层
可先开口ｃａｄ帮助的ｄｘｆ组码部分，不过我觉得对ｄｉｍｓｔｙｌｅ用ｅｎｔｍａｋｅ不如用ｖｌａ写起来清晰
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

YueFeng

已领礼包: 444个

财富等级: 日进斗金
发表于 2005-11-21 19:23:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 YueFeng 于 2014-6-18 17:14 编辑

  1. ;创建尺寸标注样式
  2. (Defun YF_DIMSTYLE_100_100(/ BLKSEL BLOCK DIMSTYLE STYLE)
  3.    ;创建尺寸标注中的文字样式.
  4.    (If (Not (TblSearch "STYLE" "YFCAD_Dimension"))
  5.       ;创建文字样式.
  6.       (SetQ STYLE (EntMakeX '((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")
  7.                                   (2 . "YFCAD_Dimension")
  8.                               (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 0.0) (3 . "Tssdeng.shx") (4 . "hztxt.shx"))
  9.                   )
  10.       )
  11.       (SetQ STYLE (TblObjName "STYLE" "YFCAD_Dimension"))
  12.    )
  13.    ;创建尺寸标注箭头块.
  14.    (If (Not (TblSearch "BLOCK" "_YFDBK"))
  15.       (Progn
  16.          (EntMake '((0 . "BLOCK")(2 . "_YFDBK")(8 . "0") (100 . "AcDbBlockReference")(70 . 0)(10 0.0 0.0 0.0)))
  17.          (EntMake '((0 . "LINE")(100 . "AcDbEntity")(100 . "AcDbLine")(8 . "0")(10 -1 0 0)(11 0 0 0)))
  18.          (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)))
  19.          (EntMake '((0 . "ENDBLK")))
  20.       )
  21.    )
  22.    (SetQ BLOCK (Cdr (Assoc 330 (EntGet (TblObjName "BLOCK" "_YFDBK")))));块记录表.
  23.    (SetQ DIMSTYLE '((0 . "DIMSTYLE")(100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord")
  24.                     (2 . "YFCAD_100_100")
  25.                     (70 . 0) (41 . 100.0) (42 . 250.0) (43 . 0.0) (44 . 250.0)
  26.                     (73 . 0) (74 . 0) (77 . 1) (140 . 300.0) (141 . 0.0) (147 . 100.0) (172 . 1)
  27.                     (174 . 1) (178 . 7) (271 . 0) (272 . 0) (279 . 2))
  28.    )
  29.    ;340组码标注样式,342组码尺寸箭头块.
  30.    (SetQ DimStyle (Append DIMSTYLE (List (Cons 340 STYLE)(Cons 342 BLOCK))))
  31.    (EntMakeX Dimstyle)
  32. )
我喜欢用EntMake生成东西。看看我的这个代码吧，你可以参照DXF组码表修改相应的定义。

点评

ScmTools
很给力!  发表于 2013-4-29 20:16
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

YueFeng

已领礼包: 444个

财富等级: 日进斗金
发表于 2005-11-27 10:01:43 | 显示全部楼层
最初由 Dallas_whu 发布
[B]谢谢提供源程序，请问5楼的大侠，为什么不能用CAD里面自带的箭头呢？如建筑标记....... [/B]

可以自己修改的。
我只是参照ＴＳＳＤ的尺寸样式自己用ENTMAKE方式重写。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xdto
发表于 2008-3-1 12:20:28 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
下来看看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hbgsw
发表于 2008-7-30 13:16:54 | 显示全部楼层
东西不错，顶一下。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hbgsw
发表于 2008-7-30 18:13:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
可以 说下 里面的具体参数 吗？？
怎么查那些数字的具体参数啊 ？？？？？？？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ljm68
发表于 2008-12-13 21:30:47 | 显示全部楼层
好东西，下下来，研究研究
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hnfsf

已领礼包: 9个

财富等级: 恭喜发财
发表于 2009-4-30 08:35:54 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
创建尺寸标注需要哪些代码呢？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

windows95ccc
发表于 2010-1-7 14:17:58 | 显示全部楼层
非常感谢楼主分享！！支持！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjch

已领礼包: 3191个

财富等级: 富可敌国
发表于 2013-6-12 13:14:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
仔细研究一下，也整一个
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDnpu349

已领礼包: 55个

财富等级: 招财进宝
发表于 2014-3-1 20:04:18 | 显示全部楼层
3楼程序给力啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cable2004

已领礼包: 2226个

财富等级: 金玉满堂
发表于 2014-3-1 21:17:12 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lliushaojiang

已领礼包: 195个

财富等级: 日进斗金
发表于 2014-10-26 09:20:22 | 显示全部楼层
好程序，找了好长时间
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 06:26 , Processed in 0.416133 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表