你看下2075行的
(command "TEXT" "MC" PTB TXT "" stringth)
还有35行的
dim字高？？？不是全局比例？ 机械工程师 发表于 2016-6-29 08:30 static/image/common/back.gif
你看下2075行的
(command "TEXT" "MC" PTB TXT "" stringth)
还有35行的
你好，这个东西的字高改成跟随尺寸字高怎么改
(DEFUN C:xz()
(setq pp1 (getpoint "\nPrint start point:"))
(setq clay (getvar "clayer"))
(SETQ DS (GETVAR "DIMSCALE"))
(SETQ h (/ DS 4.0))
(command "layer" "s" "T" "")
(COMMAND "TEXT" PP1 h 0 "装配示意图")
(command "layer" "S" CLAY"")
) 本帖最后由 皇上快溜 于 2016-6-30 12:50 编辑
多谢楼上ZZXXQQ，程序超级爽。。。
各位老大，下面程序如果想让文本"装配示意图"插入点处于文本字宽字高的中心点，该怎么改？
目前它的插入点是文本左下角
(DEFUN C:xz()
(setq pp1 (getpoint "\nPrint start point:"))
(setq clay (getvar "clayer"))
(SETQ DS (GETVAR "DIMSCALE"))
(setq h (* (getvar "DIMSCALE")(getvar "DIMTXT")))
(command "layer" "s" "T" "")
(COMMAND "TEXT" PP1 h 0 "装配示意图")
(command "layer" "S" CLAY"")
) 分享一个小程序，非常寒酸的，纯山寨的。字高随标注来自ZZXXQQ指点，特性拆借自开金工具。感谢二位
(DEFUN C:SJSJ()
(setq pp1 (getpoint "\n起始点:"))
(setq clay (getvar "clayer"))
(SETQ DS (GETVAR "DIMSCALE"))
(setq h (* (getvar "DIMSCALE")(getvar "DIMTXT")))
(command "layer" "s" "DIM" "")
(COMMAND "TEXT" PP1 h 0 (menucmd "M=$(edtime,$(getvar,date),hh:mm:ss)"))
(command "layer" "S" CLAY"")) 进步源于分享，明经有你更精彩。
页:
1
[2]