lisp一键室内标注_[AutoCAD][AutoLisp]根据图框自动匹配标注比例、文字大小、线性比例等信息

去年刚开始参加工作时，结合公司的现状，自己写了一段AutoLisp程序。功能很简单，适用环境可能不广，但是对我来说已经很够用了，所以部门的很多同事经过我的介绍后也都在使用。以后有空可能会将代码写得更强壮一点。

问题情景描述：从proe中将3D导出为dwg的工程图格式，然后到AutoCAD的模型空间进行1：1的等比例标注。根据实物的尺寸不同，相应的标注比例、默认的文字大小、全局线性比例等都要进行调整，每次都进行手工调整岂不是很麻烦？

解决办法：可以根据与导出模型大小搭配的图框的缩放比例来自动调整相关参数。比如，我的3D实物比较大，那导出的工程图尺寸也会比较大，相对应的公司图框也会比较大。那么，根据图框的放大比例，通过lisp语言来实现自动调整相关参数。

使用条件：

1、图框是块，不允许炸开；

2、图框X方向与Y方向的放大缩小比例一样；

(defun c:gyr () ;定义全局函数gyr

(setvar "cmdecho" 0)

(if (setq ss (ssget "X" '((0 . "INSERT") (2 . "guyiren_company"))))

;将guyiren_company替换为相应的图框名字

(progn

(setq ent (entget (ssname ss 0))

sx (cdr (assoc 41 ent)) ;x方向比例大小为sx

;sy (cdr (assoc 42 ent)) ;y方向比例大小为sy

;sz (cdr (assoc 43 ent)) ;z方向比例大小为sz

)

;加入判断x，y，z轴的放大比例是否一致的代码(待加)

(setq s1 (* sx 5))

(setq s2 (* sx 2.5))

(setvar "ltscale" s1) ;全局线性比例，为图框缩放比例的5倍

(setvar "dimscale" sx) ;标注文字大小，与图框缩放比例一致

(setvar "textsize" s2) ;文字高度大小，为图框缩放比例的2.5倍

(setvar "dimasz" sx) ;标注箭头大小，与图框缩放比例一致

;自行添加其他相应参数……

(princ "全局线型比例为：") (princ s1) (princ "标注全局比例为：") (princ sx) (princ "全局文字高度为：")(princ s2)

)

(princ)

)

完成之后，将该代码文件添加到cad的autolisp启动组里面，这样每次cad一启动就会自动读取该程序。在调整好图框的情况下，输入快捷键gyr即可(快捷键可以自己修改)。

代码是初学lisp的我写的，大牛轻拍砖，还望多指教啊。

lisp一键室内标注_[AutoCAD][AutoLisp]根据图框自动匹配标注比例、文字大小、线性比例等信息 | 古意人...相关推荐

Lisp编制的坡度标注_用Autolisp实现AutoCAD中尺寸公差及表面粗糙度的快速标注
用 Autolisp 实现 AutoCAD 中尺寸公差及表面粗糙度的快速标注刘志存 ; 史登旺 [期刊名称] <成组技术与生产现代化> [年 ( 卷 ), 期] 2000(000)00 ...
lisp获取qleader端点_基于AutoLISP的点坐标标注
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!! (10)造型完成至此,完成了该变速器总成所有气管的三维造型. ...
lisp语言绘制路灯_基于AutoLISP的路灯桩号自动标注程序设计
基于 AutoLISP 的路灯桩号自动标注程序设计于涛 ; 张泳 ; 肖亮 [期刊名称] <自动化博览> [年 ( 卷 ), 期] 2015(000)011 [摘要] 推导出路灯桩号自动 ...
lisp 非对称缓和曲线_利用AutoLISP语言绘制带缓和曲线的铁路曲线平面图
利用 AutoLISP 语言绘制带缓和曲线的铁路曲线平面图 [ 摘要 ] 通过 AutoLISP 编程方法的剖析 , 探讨了基于 Visual LISP(VLISP) 编程软件环境下 , 利用 Aut ...
lisp一键室内标注_LISP-标注的自动位置调整
(defun c:da(/ s0 e e_list e_list_long p0 p10 p11 p13 p14 p0 L00 k1 k L0 ct axis t42 pp11 pp11_x pp11 ...
lisp绘制直齿圆柱齿轮_基于AutoLISP的模拟滚齿以及滚刀齿形验证
AutoLISP是由Autodesk公司开发的一种LISP程序语言,LISP是List Processor的缩写.通过autolisp编程,可以节省工程师很多时间.AutoLISP语言作为嵌入在Aut ...
lisp填写明细表对话框_用AutoLisp定制acad的对话框
用 AutoLisp 定制 acad 的对话框编写对话框文件,存为 G: /cad/tmp.dcl ,代码如下: dcl_settings : default_dcl_settings { audi ...
lisp 设计盘形齿轮铣刀_用AutoLISP程序设计盘形齿轮铣刀渐开线齿形
用AutoLISP程序设计盘形齿轮铣刀渐开线齿形用AutoLISP程序设计盘形齿轮铣刀渐开线齿形来源:数控机床网作者:数控车床栏目:行业动态摘要:介绍了用AutoCAD 内嵌的AutoLIS ...
lisp写标高线_基于Autolisp语言的等高线批量赋标高程序
基于 Autolisp 语言的等高线批量赋标高程序于全景,李兆爽,张红松(中国中材国际工程股份有限公司(南京) ,江苏南京 211100 ) [摘要] 在总图设计对等高线赋标高时,设计人员需在特性 ...

lisp一键室内标注_[AutoCAD][AutoLisp]根据图框自动匹配标注比例、文字大小、线性比例等信息 | 古意人...

lisp一键室内标注_[AutoCAD][AutoLisp]根据图框自动匹配标注比例、文字大小、线性比例等信息 | 古意人...相关推荐

最新文章

热门文章