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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 创建图层、文字样式、标注样式【标注样式带全注释】 ...
返回列表 发新帖
查看: 2535|回复: 7

[每日一码] 创建图层、文字样式、标注样式【标注样式带全注释】

[复制链接]
a117034423

已领礼包: 212个

财富等级: 日进斗金
发表于 2020-12-10 13:42:02 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 a117034423 于 2020-12-10 13:54 编辑

  1. (defun c:noc (/ sty1 sty2)
  2. (setvar "cmdecho" 0)
  3. (setq osm (getvar "osmode"))
  4. (setvar "osmode" 0)
  5. (if (null (tblsearch "LAYER" "预制构件编号"))
  6.         (entmake
  7.             (list
  8.                '(0 . "LAYER")
  9.                '(100 . "AcDbSymbolTableRecord")
  10.                '(100 . "AcDbLayerTableRecord")
  11.                '(70 . 0)
  12.                 (cons 2 "预制构件编号")
  13.                 (cons 62 7)
  14.             )
  15.          )
  16.   )
  17. (setq sty1 '(
  18.                (0 . "STYLE")
  19.                (100 . "AcDbSymbolTableRecord")
  20.                (100 . "AcDbTextStyleTableRecord")
  21.                (2 . "黑体")
  22.                (70 . 0)
  23.                (40 . 0.0)
  24.                (41 . 1.0)
  25.                (50 . 0.0)
  26.                (71 . 0)
  27.                (42 . 0.2)
  28.                (3 . "simhei.ttf")
  29.                (4 . "")
  30.              ))
  31. (if (null (tblsearch "style" "黑体"))
  32.         (entmake sty1)
  33.         )
  34. (setq sty2 (list
  35.            '(0 . "DIMSTYLE")
  36.            '(100 . "AcDbSymbolTableRecord")
  37.            '(100 . "AcDbDimStyleTableRecord")
  38.            '(70 . 0)
  39.            (cons 2 "预制编号") ; 标注样式名
  40.            '(3 . "") ;测量单位
  41.            '(4 . "") ;前后缀 "M<>n"
  42.            '(5 . "ArchTick") ;断点样式
  43.            '(6 . "") ;起始断点样式
  44.            '(7 . "") ;终点断点样式
  45.            '(40 . 1.0) ;全局比例
  46.            '(41 . 0.0) ;箭头尺寸
  47.            '(42 . 150.0) ;起点偏移量
  48.            '(43 . 0.0) ;基线间距
  49.            '(44 . 125.0) ;超出尺寸界线
  50.            '(45 . 0.0) ;舍入值
  51.            '(46 . 0.0) ;延伸线距离
  52.            '(47 . 0.0) ;正公差
  53.            '(48 . 0.0) ;负公差
  54.            '(140 . 300.0) ;标注文字高度
  55.            '(141 . 0.09) ;圆心标记
  56.            '(142 . 0.0) ;短斜线箭头
  57.            '(143 . 25.4) ;对照单位比例系数
  58.            '(144 . 1.0) ;标注线性比例
  59.            '(145 . 0.0) ;标注垂直位置
  60.            '(146 . 1.0) ;公差文字高度比例
  61.            '(147 . -63.125) ;截断线与文字距离
  62.            '(71 . 0) ;是否显示公差
  63.            '(72 . 0) ;创建上下限标注
  64.            '(73 . 0) ;内侧文字水平
  65.            '(74 . 0) ;扩展线外侧文字位置
  66.            '(75 . 1) ;尺寸界线1隐藏
  67.            '(76 . 1) ;尺寸界线2隐藏
  68.            '(77 . 1) ;文字在尺寸线上方
  69.            '(78 . 0) ;消零
  70.            '(170 . 0) ;对照单位显示
  71.            '(171 . 2) ;对照单位小数字数
  72.            '(172 . 1) ;标注线与延伸线关系
  73.            '(173 . 0) ;箭头是否显示
  74.            '(174 . 1) ;文字与延伸线关系
  75.            '(175 . 0) ;抑制箭头
  76.            '(176 . 0) ;标注线颜色
  77.            '(177 . 0) ;标注延伸线颜色
  78.            '(178 . 7) ;标注文字颜色
  79.            '(270 . 2) ;标注类型单位
  80.            '(271 . 0) ;尺寸标注精度
  81.            '(272 . 0) ;公差精度
  82.            '(273 . 2) ;对照单位格式
  83.            '(274 . 2) ;对照单位小数字数
  84.            (cons 340 (tblobjname "style" "黑体")) ;标注文字样式
  85.            '(275 . 0) ;角度单位格式
  86.            '(280 . 0) ;文字对正方式
  87.            '(281 . 0) ;尺寸线1隐藏
  88.            '(282 . 0) ;尺寸线2隐藏
  89.                  )
  90.       )
  91. (if (null (tblsearch "dimstyle" "预制编号"))
  92. (entmake sty2)
  93. )
  94. (setvar "osmode" osm)
  95. (princ)
  96. )




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

使用道具 举报

zxcvbnm-cad
发表于 2020-12-30 09:06:36 | 显示全部楼层
谢谢分享，创建后如何设置成当前标注样式

点评

a117034423
如果用lisp创建 你直接定义对象是当前标注样式不就好了 或者你搜一下  详情 回复 发表于 2020-12-30 10:22
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

a117034423

已领礼包: 212个

财富等级: 日进斗金
 楼主| 发表于 2020-12-30 10:22:54 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxcvbnm-cad 发表于 2020-12-30 09:06
谢谢分享，创建后如何设置成当前标注样式

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

使用道具 举报

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

使用道具 举报

f4800

已领礼包: 1个

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

使用道具 举报

MUYIY

已领礼包: 33个

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-25 18:20 , Processed in 0.188980 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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