查看单个帖子
旧 2009-04-28, 03:01 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】求助以类型选择copy lisp,谢谢!

求助以类型选择copy lisp,谢谢!
www.dimcax.com
求助以类型选择copy lisp,谢谢!
输入lisp命令选择文字,再框选范围且只会选种文字复制;
同理输入lisp命令选择尺寸(图元、图块),再框选范围且只会选种尺寸(图元、图块)复制;

(vl-cmdf
"copy"
(ssget (list (cons 0 (cdr (assoc 0 (entget (car (entsel))))))))
""
pause
pause
)

请教楼主为什么我改成以下程式,总运行出错。
(defun c:rr()
(setp a (ssget (list (cons 0 (cdr (assoc 0 (entget (car (entsel)))))))))
(command "copy" a ""))

已调试ok谢谢楼主
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)