如何用lisp调整子标准样式

vpddup

已经用lisp创建了一个标注样式STDD，并生成了子标注样式，但是如何单独调整子标注样式呢？比如我想把子标注样式 半径的引线换成实心的箭头，如果我改"_DIMBLK"参数，那么其他标注子样式也会改变。 谢谢

• (command-s "-dimstyle" "AN" "N" "STDD" "S" "")
•       (command
•         "_DIMADEC" "0"
•         "_DIMALT" "0"
•         "_DIMALTD" "2"
•         "_DIMALTF" "25.4000"
•         "_DIMALTRND" "0.0000"
•         "_DIMALTTD" "2"
•         "_DIMALTTZ" "0"
•         "_DIMALTU" "2"
•         "_DIMALTZ" "0"
•         "_DIMAPOST" " "
•         "_DIMASZ" "1"
•         "_DIMATFIT" "3"
•         "_DIMAUNIT" "0"
•         "_DIMAZIN" "0"
•         "_DIMBLK" "_ARCHTICK"
•         "_DIMBLK1" " "
•         "_DIMBLK2" " "
•         "_DIMCEN" "1.8"
•         "_DIMCLRD" "4"
•         "_DIMCLRE" "4"
•         "_DIMCLRT" "2"
•         "_DIMDEC" "0"
•         "_DIMDLE" "1"
•         "_DIMDLI" "0.00"
•         "_DIMDSEP" "."
•         "_DIMEXE" "1.0"
•         "_DIMEXO" "3.0"
•         "_DIMFRAC" "0"
•         "_DIMGAP" "1.5"
•         "_DIMJUST" "0"
•         "_DIMLDRBLK" ""
•         "_DIMLFAC" "1.0000"
•         "_DIMLIM" "0"
•         "_DIMLUNIT" "2"
•         "_DIMLWD" "-1"
•         "_DIMLWE" "-2"
•         "_DIMPOST" " " ;;标注测量值的后缀，例如MM、毫米
•         "_DIMRND" "0.0000" ;;标注测量值舍入到指定值
•         "_DIMSAH" "0"
•         "_DIMSCALE" ScNum ;;标注字体、块的大小比例
•         "_DIMSD1" "0"
•         "_DIMSD2" "0"
•         "_DIMSE1" "0"    ;;是否关闭第一条起、止界线
•         "_DIMSE2" "0"   ;;是否关闭第二条起、止界线
•         "_DIMSOXD" "0"
•         "_DIMTAD" "1"
•         "_DIMTDEC" "0"
•         "_DIMTFAC" "1.0000"
•         "_DIMTIH" "0"
•         "_DIMTIX" "1"
•         "_DIMTM" "0.0000"
•         "_DIMTMOVE" "2"
•         "_DIMTOFL" "1"
•         "_DIMTOH" "0"
•         "_DIMTOL" "0"
•         "_DIMTOLJ" "1"
•         "_DIMTP" "0.0000"
•         "_DIMTSZ" "0.000"
•         "_DIMTVP" "0.0000"
•         "_DIMTXSTY" "TSSD-STD"
•         "_DIMTXT" "3" ;;文字的高度
•         "_DIMTZIN" "0"
•         "_DIMUPT" "0"
•         "_DIMZIN" "0")
•     )
•   )
•   (if (not (tblsearch "dimstyle" "STDD$0")) (command-s "-dimstyle" "s" "STDD$0"))
•   (if (not (tblsearch "dimstyle" "STDD$2")) (command-s "-dimstyle" "s" "STDD$2"))
•   (if (not (tblsearch "dimstyle" "STDD$3")) (command-s "-dimstyle" "s" "STDD$3"))
•   (if (not (tblsearch "dimstyle" "STDD$4")) (command-s "-dimstyle" "s" "STDD$4"))  ;;生成子标注样式  $2 角度标注，$3 直径标注  $4 半径标注，$6 坐标标注 $0 线性标注, $7 引线和公差
•   (if (not (tblsearch "dimstyle" "STDD$7")) (command-s "-dimstyle" "s" "STDD$7"))
  

Lispboy

设置样式替代

vpddup

谢谢指点，也就是每个子标注样式都使用样式替代的方式建立，对吧。没想到同一个系统变量可以让不同的子标注样式呈现不同的状态，比如 "_DIMBLK"变量。

XDSoft

vpddup 发表于 2020-6-11 22:00
谢谢指点，也就是每个子标注样式都使用样式替代的方式建立，对吧。没想到同一个系统变量可以让不同的子标注 ...

是你每一个标注实体，都可以设置不同的

XDSoft

vpddup 发表于 2020-6-11 22:00
谢谢指点，也就是每个子标注样式都使用样式替代的方式建立，对吧。没想到同一个系统变量可以让不同的子标注 ...

去看下这个插件，
http://bbs.xdcad.net/thread-726052-1-1.html