日志

分享 2012-12-08: crazylsp 2012-12-8 15:16; ;;不炸开块提取块内对象 LJS BY 2012 12 07 参考了《属性按选择顺序加1》的程序 (defun c:test () (if (and (setq e(nentsel"\nSelect Block with Attrib 选择带属性图块 :")) &nbs ...; 个人分类: 块|612 次阅读|0 个评论

分享缩放图块: crazylsp 2012-11-16 17:13; ;缩放选择名称的图块 (defun c:tt() (SETQ b1 (ENTSEL "\n请选择图块: ") i 0 hh (getreal"输入新的缩放系数: ") ) (IF b1 (PROGN ...; 个人分类: 块|807 次阅读|0 个评论热度 1

GMT+8, 2024-5-15 19:44 , Processed in 0.085561 second(s), 11 queries , Gzip On.

账号		自动登录	找回密码
密码			注册