这是一个关于CAD Lisp的小程序集合，包括圆自动同心变形功能，通过用户选取点实现圆心同步更新；图层快速修改功能，允许用户选择基准图层和修改图层，批量更改图层设置；以及字高自动修改功能，用户选择基准字高和修改图层后，可批量调整文字高度。这些源代码旨在提高CAD操作效率。
CAD
lisp
实用小程序(源代码)
一、圆自动同心
(defun
c:TX(/
qi
aa
ec
center
v_c)
(vl-load-com)
(princ
"
圆自动同心
:")
(setq
aa
(ssget));;
获取圆的图元名
(setq
center
(getpoint
"
选取点位置：
"));
(setq
center
(vlax-3D-point
center));
(setq
qi
0);
初始序号
(repeat
(sslength
aa);
对象个数
(setq
ec
(ssname
aa
qi));
选择第一个图元
(setq
v_c(vlax-ename->vla-object
ec));
将圆的图元名转换为
VLA
对象
(vla-put-center
v_c
center);
更新圆中心点
(setq
qi
(+
qi
1))
);repeat
最低0.47元/天 解锁文章
335
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
