lisp文字上标源码_创建文本/标注样式源码 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

本帖最后由 zhengxiansz 于 2014-4-27 11:27 编辑

GU_xl你好！

请帮我看一下这个创建文本/标注样式源码。第一次输入IT1命令时没有报错的提示。如果重复输入IT1命令时就会提示该名称已被使用，是否重新定义？请问有什么方法可以解决吗？

还有这个程序我增加控制保存为2004版本的环境变量值，研究了好久也没有找到是哪个变量值。

(defun c:IT1()

(prinC "标注样式")

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setvar "OSMODE" 183)

(command "LTSCALE" "6")

(command "-style" "TP_Standard" "isocp.shx,gbcbig.shx" "" "1.0" "" "" "")

(command "-style" "TsaiPress" "isocp.shx,gbcbig.shx" "" "0.9" "" "" "")

(command "dimtxt"   "0.18"      "dimasz"     "0.1"    ;文字高度                        ;箭头大小

"dimexe"   "0.05"      "dimexo"     "0.05"   ;尺寸界限超出长度                ;尺寸界限起点距离：0.5

"dimgap"   "0.05"      "dimtoh"     "off"    ;标注文字周围的距离              ;文字在尺寸界线外的位置：关

"dimtih"   "OFF"       "blipmode"   "0"      ;标注文字在尺寸界线内的位置：    ;关，点标记模式：关

"DIMDLI"   "0.05"      "DIMATFIT"   "3"      ;控制基线标注中尺寸线的间距：    ;当尺寸界线不足放下标注文字和箭头时，函数DIMATFIT确定位置

"DIMTAD"   "0"         "DIMDEC"     "2"      ;控制文字相对尺寸线的垂直位置，  ;小数位数：2

"DIMJUST"  "0"         "DIMDSEP"    "."      ;控制标注文字的水平位置：0，     ;小数分隔符为 .

"DIMTOFL"  "0"         "dimtmove"   "0"      ;控制标注文字在尺寸界线外的位置：;关对齐，设置标注文字的移动规则：0 水平

"dimcen"   &#