设为首页收藏本站转

发帖领奖家园QQ群申请版主版主评价切换到宽版

晓东CAD家园-论坛 › 日志

小组

日志

分享改改"-array": crazylsp 2013-7-2 17:29; ;;-array的稍改 (defun c:ay() (setq s (ssget) p1 (getpoint"单元格") p2 (getcorner p1) ;单元格 p4 (list(car p2)(cadr p1))) &n ...; 个人分类: ALISP|277 次阅读|0 个评论

分享文字和标注线分离时: crazylsp 2013-5-21 17:48; ;有的软件作用的尺寸经常是文字和标注线分离的, 文字合入标注 (vlax-put-property (vlax-ename-vla-object (car(entsel"尺寸"))) 'TextOverride (vlax-get-property (vlax-ename-vla-object(car(entsel"文字")))'TextString ) ); 个人分类: ALISP|277 次阅读|0 个评论

分享等间距均布两选择集 _修改: crazylsp 2013-5-21 16:34; ;;等间距均布两选择集 1用户给一个间距，2选择两个选择集，移动第二个选择集块插入点到根据第一个插入点计算的位置 ;;有空思考下为什么做块时出现*U1U2错误 ;●87.2 选择集的实体外矩形框 by gxl (defun MJ:GetssBox (ss / i l1 l2 ll ur) (repeat (setq i (sslength ss)) ...; 个人分类: ALISP|315 次阅读|0 个评论

分享选线画矩形: crazylsp 2013-5-6 18:19; ;;角度有问题，还没想通以后我有时间来这里更正 20130506 (vl-load-com) (defun c:tt() (setq object (vlax-ename-vla-object (car(entsel"\n选一条线"))) angle (vlax-get-property object 'angle) ) &nb ...; 个人分类: ALISP|184 次阅读|0 个评论

|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-5-18 22:00 , Processed in 0.348427 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

返回顶部