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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 尺寸标注与字体属性不能用entmod修改吗
返回列表 发新帖
查看: 425|回复: 3

[求助] 尺寸标注与字体属性不能用entmod修改吗

[复制链接]
a117034423

已领礼包: 201个

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

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

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

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


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

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2020-12-12 14:53:52 | 显示全部楼层

(setq sty1 (entget (tblobjname "layer" "预制构件编号")))
  (setq sty1 (subst (cons 62 7) (assoc 62 sty1) sty1))

你打印看下 前后 sty1的值分别是什么

点评

a117034423
老大 能麻烦您给我看看 excel与table数据链接的帖子么 我搜不到相关帖子  详情 回复 发表于 2020-12-12 15:03
a117034423
颜色可以改，比如字体文件，我在创建时 是可以的，但是用if函数判断已有字体属性时，更改后，字体属性会重新生成一个"simhei.ttf"的字体文件样式  详情 回复 发表于 2020-12-12 15:02
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

a117034423

已领礼包: 201个

财富等级: 日进斗金
 楼主| 发表于 2020-12-12 15:02:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lisphk 发表于 2020-12-12 14:53
(setq sty1 (entget (tblobjname "layer" "预制构件编号")))
  (setq sty1 (subst (cons 62 7) (assoc 6 ...

  1. (if (null (tblsearch "style" "黑体"))
  2.         (entmake
  3.           (list
  4.                '(0 . "STYLE")
  5.                '(100 . "AcDbSymbolTableRecord")
  6.                '(100 . "AcDbTextStyleTableRecord")
  7.                '(2 . "黑体")
  8.                '(70 . 0)
  9.                '(40 . 0.0)
  10.                '(41 . 1.0)
  11.                '(50 . 0.0)
  12.                '(71 . 0)
  13.                '(42 . 300)
  14.                '(3 . "simhei.ttf")
  15.                '(4 . "")
  16.           )
  17.        )
  18.    )

颜色可以改，比如字体文件，我在创建时 是可以的，但是用if函数判断已有字体属性时，更改后，字体属性会重新生成一个"simhei.ttf"的字体文件样式类似这种情况的 还有标注样式的基线隐藏与显示也更新不了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

a117034423

已领礼包: 201个

财富等级: 日进斗金
 楼主| 发表于 2020-12-12 15:03:46 | 显示全部楼层
Lisphk 发表于 2020-12-12 14:53
(setq sty1 (entget (tblobjname "layer" "预制构件编号")))
  (setq sty1 (subst (cons 62 7) (assoc 6 ...

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-26 20:09 , Processed in 0.557408 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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