admin 管理员组文章数量: 1086019
2024年3月9日发(作者：二维数组的数据类型)
CADlisp
实用小程序（源代码）
一、圆自动同心
(defunc:TX(/qiaaeccenterv_c)
(vl-load-com)
(princ"圆自动同心:")
(setqaa(ssget));;获取圆的图元名
(setqcenter(getpoint"选取点位置："));
(setqcenter(vlax-3D-pointcenter));
(setqqi0);初始序号
(repeat(sslengthaa);对象个数
(setqec(ssnameaaqi));选择第一个图元
(setqv_c(vlax-ename->vla-objectec));将圆的图元名转换为VLA对象
(vla-put-centerv_ccenter);更新圆中心点
(setqqi(+qi1))
);repeat
(princ"修改成功:")
);defun
二、图层快速修改
(princ"快速修改图层编程-TC")
(defunC:TC(/)
(vl-load-com)
(setqSET_ZJTC(vla-get-Layer(vlax-ename->vla-object(car(entsel"n选择基准图层:")))))
(WHILE(NOTSET_ZJTC)(setqSET_ZJTC(vla-get-Layer(vlax-ename->vla-object(car(entsel
"n基准图层为空，重新选择！:"))))))
(setqSET_XGTC(vla-get-Layer(vlax-ename->vla-object(car(entsel"n选择修改图层:")))))
(WHILE(NOTSET_XGTC)(setqSET_XGTC(vla-get-Layer(vlax-ename->vla-object(car
(entsel"n修改图层为空，重新选择！:"))))))
(vlax-forVLA_MSP(vla-get-ModelSpace(vla-get-ActiveDocument(vlax-get-Acad-Object)))
(IF(=(vla-get-LayerVLA_MSP)SET_XGTC)(vla-put-LayerVLA_MSPSET_ZJTC)))
(princ"n快速修改图层编程-TC:")
(princ)
);DEFUN
三、字高自动修改
(princ"快速修改字高编程-ZG")
(defunC:ZG(/)
(vl-load-com)
(setqSET_ZTGD(vla-get-Height(vlax-ename->vla-object(car(entsel"n选择基准字高:")))))
(WHILE(NOTSET_ZJTC)(setqSET_ZJTC(vla-get-Height(vlax-ename->vla-object(car
(entsel"n基准字高为空，重新选择！:"))))))
(setqSET_XGTC(vla-get-Layer(vlax-ename->vla-object(car(entsel"n选择修改图层:")))))
(WHILE(NOTSET_XGTC)(setqSET_XGTC(vla-get-Layer(vlax-ename->vla-object(car
(entsel"n修改图层为空，重新选择！:"))))))
(vlax-forVLA_MSP(vla-get-ModelSpace(vla-get-ActiveDocument(vlax-get-Acad-Object)))
(IF(=(vla-get-LayerVLA_MSP)SET_XGTC)(vla-put-HeightVLA_MSPSET_ZTGD)))
(princ"n快速修改图层编程-ZG")
(princ)
);DEFUN
版权声明：本文标题：CAD lisp 实用小程序(源代码) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1709994229a552726.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论