lisp修改天正标高值_【求教】如何批量修改天正字体

2015年12月15日 09:15:31

10楼

(princ "\n命令：tx 改变字体文件！")

(defun c:tx (/ acaddocument tstyle textitem textcont seltext i textsel

texti)

(vl-load-com)

(setq acaddocument (vla-get-activedocument (vlax-get-acad-object)))

(setq tstyle (vla-get-textstyles acaddocument))

(vla-add tstyle "CXB_txt")

(setq textitem (vla-item tstyle "CXB_txt"))

(vla-put-fontfile textitem "gbenor.shx") ;"romans.shx"

(vla-put-bigfontfile textitem "GBCBIG.shx") ;"hztc2.shx"

(vla-put-width textitem 1)

(vla-put-height textitem 0.0)

(prompt "\n点选需转换的字体：")

(setq seltext (vlax-ename->vla-object (car (entsel))))

(setq selstyle (vla-get-stylename seltext))

(if (wcmatch selstyle "[@#]*")

(progn

(setq selstyle (strcat "[@#]" (substr selstyle 2)))

;;;(vla-put-stylename (vla-item tstyle (vla-get-stylename seltext)) selstyle )

))

(setq textsel

(ssget "_x" (list (cons 0 "TEXT,ATTDEF") (cons 7 selstyle)))

)

(setq i 0)

(repeat (sslength textsel)

(setq texti (vlax-ename->vla-object (ssname textsel i)))

(vla-put-stylename texti "CXB_txt")

(vla-put-scalefactor texti 1)

;;; (vla-put-height

;;; texti

;;; (* 100 (fix (/ (vla-get-height texti) 100)))

;;; )

;;; (if (= (vla-get-height texti) 200)

;;; (vla-put-height texti 300)

;;; )

(setq i (1+ i))

)

;;(vla-regen acadDocument acallViewports)

(vla-regen acadDocument :vlax-true)

(princ)

)

lisp修改天正标高值_【求教】如何批量修改天正字体相关推荐

lisp修改天正标高值_表达式计算修改版本，增加计算函数选择按钮[2019年1月23日更新]...
本帖最后由 wayne_myles 于 2019-1-22 11:30 编辑这个计算器不错我输入9999*9999直接提示表达式不正确 6666 http://bbs.mjtd.com/threa ...
修改mysql表前缀_使用phpMyAdmin批量修改Mysql数据表前缀的方法
多个网站共用一个Mysql数据库时,为使数据库管理不混乱,一般采用不同的网站使用不同前缀名的方式进行区分.而如何批量修改已有数据库的前缀名呢?全部导出修改后再导入?还是一个表一个表的修改?今天我要介绍 ...
lisp修改天正标高值_天正CAD里面如何修改标高三角形尺寸，一直太大？
回答: 1.首先,我们先单击"绘图"工具栏中的"直线"按钮,绘制出一个标高符号,就像一个横着放的旗帜.标高符号绘制完成,我们就要进行下一个步骤了. 2.选择菜单 ...
jsonobject修改key的值_修改JSONArray里所有key的值
下面举一个代码的列子目的是实现如下功能: [{"userId":1,"userName":"plf"},{"userId" ...
python字典修改键所对应值_详解如何修改python中字典的键和值
我们知道python中字典是无序的,它们都是通过hash去对应的.一般的如果我们需要修改字典的值,只需要直接覆盖即可,而修改字典的键,则需要使用字典自带的pop函数,示例如下: t = {} t['a ...
必须是可修改的左值_信用卡还不上？修改账单日缓解压力？这些注意事项一定要知道~...
众所周知,除了分期付款和最低还款外,我们在平时还可以通过修改账单日来缓解还款压力. 但是,修改账单不是那么简单的,它也有许多规则.如果我们申请修改账单日,不符合银行条件的话,是会将被拒绝的哦! 所以今 ...
python数据库操作批量sql执行_使用Python批量修改数据库执行Sql文件
由于上篇文章中批量修改了文件,有的时候数据库也需要批量修改一下,之前的做法是使用宝塔的phpMyAdmin导出一个已经修改好了的sql文件,然后依次去其他数据库里导入,效率不说极低,也算低了,且都是些 ...
怎么修改jar包的yml文件_电脑怎么批量修改文件名
大家好,今天分享一篇来源小白一键重装网(xiaobaixitong.com)关于解答:电脑怎么批量修改文件名. 电脑怎么批量修改文件名呢?很多小伙伴喜欢手机自拍,然后把自拍照片存储到电脑里,需要给照片 ...
批量修改栏目名_Endnote中英文混排批量修改小技巧
来源:卓琳赵一鸣北医三院临床流行病学和循证医学如果参考文献量大,涉及多种类型和语言,手工附上参考文献非常低效,还是得借助文献管理软件.由于output style选择的不同,中文参考文献的书写 ...

lisp修改天正标高值_【求教】如何批量修改天正字体

lisp修改天正标高值_【求教】如何批量修改天正字体相关推荐

最新文章

热门文章