求一个新建标注样式的lisp

yangist · 发表于 2013-6-21 09:50:07

求一个新建标注样式的lisp
最好能有说明每个参数与标注里的哪里一一对应

20060510412 · 发表于 2019-3-11 19:19:55

能不能不使用command命令呢

趣意人生 · 发表于 2021-9-12 11:36:38

这个好东西啊！收藏学习了！

Wu_Enwu · 发表于 2021-3-24 15:34:48

支持一下感谢！

fanqinwei · 发表于 2013-6-21 09:59:14

;新建标注样式
(defun c:XB()
   (setq a (getvar "osmode"));获取捕捉方式的值
   (setvar "osmode" 0)
   (setvar "cmdecho" 0) ;指令执行过程不响应
  (command "style" "STANDARD" "txt.shx,hztxt.shx " "0" "0.7" "0" "" ""  "")
  (command"-dimstyle" "s" "fanqinwei")
  (command "dimtxt" "2"    "dimasz" "2"    "dimexe"
   ".5"       "dimexo"    "0.5"       "dimgap" "0.5"
   "dimtoh" "off"    "dimtih" "off"    "blipmode"
   "0"       "DIMDLI"    "5"       "DIMATFIT" "3"
   "DIMTAD" "0"    "DIMDEC" "3"          "DIMTXSTY"
   "standard" "DIMCLRT"    "6"       "DIMJUST"  "0"
   "DIMDSEP"  "."    "DIMTOFL"  "0" "dimtmove" "0"
   "dimcen" "0" "dimclrd" "3" "dimclre" "5"  "dimaunit" "1"
   )
   (setvar "osmode" a);还原捕捉方式
(princ)
   (PRINC "\n--    新建标注样式完成！")(PRINC))

yangist · 发表于 2013-6-21 10:00:36

谢谢~~~~~~~

tgliu · 发表于 2014-2-26 23:25:44

支持一个,正在做这个LIsp

zdqing1987 · 发表于 2014-11-12 16:00:17

请问如何修改标注的箭头形式呢，比如想把实心箭头换成斜线？

迹扬 · 发表于 2015-1-18 14:15:37

"DIMBLK" ""建筑标记""
;箭头
"DIMBLK1" ""实心闭合""
;箭头 1
"DIMBLK2" ""实心闭合""
;箭头 2

ㄨ⒈a_0_Уu · 发表于 2015-7-17 11:30:40

迹扬发表于 2015-1-18 14:15
"DIMBLK" ""建筑标记""
;箭头
"DIMBLK1" ""实心闭合""

引线圆点如何设置呢？

迹扬 · 发表于 2015-7-20 12:55:54

说明变量 aaa
全局比例 DIMSCALE 1
公差位置垂直 DIMTOLJ 0
公差文字比例因子 DIMTFAC 1
公差极限偏差 DIMTOL 关
公差极限偏差上限 DIMTP 0
公差极限偏差下限 DIMTM 0
公差消零 DIMTZIN 8
公差界限 DIMLIM 关
公差精度 DIMTDEC 2
分数格式 DIMFRAC 0
固定的尺寸界线长度 DIMFXL 1
圆心标记大小 DIMCEN 2
大弧度标注折弯角度 DIMJOGANG 90
小数分隔符 DIMDSEP .
尺寸界线 1 的线型 DIMLTEX1 ByLayer
尺寸界线 2 的线型 DIMLTEX2 ByLayer
尺寸界线偏移 DIMEXO 1
尺寸界线线宽 DIMLWE -1
尺寸界线超出量 DIMEXE 1
尺寸界线颜色 DIMCLRE 10
尺寸线强制 DIMTOFL 开
尺寸线的线型 DIMLTYPE ByLayer
尺寸线线宽 DIMLWD -1
尺寸线超出量 DIMDLE 0
尺寸线间距 DIMDLI 0
尺寸线颜色 DIMCLRD 10
已启用固定的尺寸界线 DIMFXLON 关
引线箭头 DIMLDRBLK 点
弧长符号 DIMARCSYM 1
换算公差消零 DIMALTTZ 0
换算公差精度 DIMALTTD 3
换算前缀和后缀 DIMAPOST
换算单位 DIMALTU 2
换算比例因子 DIMALTF 0
换算消零 DIMALTZ 0
换算精度 DIMALTD 3
换算舍入 DIMALTRND 0
换算零后缀 DIMALTMZS
换算零因子 DIMALTMZF 100
文字位置垂直 DIMTAD 1
文字位置水平 DIMJUST 0
文字偏移 DIMGAP 1
文字前缀和后缀 DIMPOST
文字在内 DIMTIX 开
文字在内对齐 DIMTIH 关
文字外部对齐 DIMTOH 关
文字样式 DIMTXSTY SCH-S
文字背景已启用 DIMTFILL 0
文字背景颜色 DIMTFILLCLR BYBLOCK
文字颜色 DIMCLRT BYLAYER
文字高度 DIMTXT 3
无外侧尺寸线 DIMSOXD 关
无尺寸界线 1 DIMSE1 关
无尺寸界线 2 DIMSE2 关
无尺寸线 1 DIMSD1 关
无尺寸线 2 DIMSD2 关
标注文字的方向 DIMTXTDIRECTION 关
消零 DIMZIN 8
独立的箭头 DIMSAH 关
箭头 DIMBLK 建筑标记
箭头 1 DIMBLK1 实心闭合
箭头 2 DIMBLK2 实心闭合
箭头大小 DIMASZ 1
精度 DIMDEC 2
舍入 DIMRND 0
角度格式 DIMAUNIT 0
角度消零 DIMAZIN 2
角度精度 DIMADEC 0
调整: 文字移动 DIMTMOVE 0
调整: 箭头和文字 DIMATFIT 3
长度单位 DIMLUNIT 2
长度比例 DIMLFAC 1
零后缀 DIMMZS
零因子 DIMMZF 100

迹扬 · 发表于 2015-7-20 12:56:28

标注样式里面可以查询

start4444 · 发表于 2016-7-6 20:29:46

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

[讨论] 求一个新建标注样式的lisp

相关帖子

点评