lisp无法执行后面的语句
(defun c:L1mm() ;获取"马巴清废针"(command "undo" "g")
(setq os (getvar "osmode"))
(command "_ucs" "")
(setvar "cmdecho" 0)
(setq p1 (getpoint "请选择基点:"))
;;;插入设定好的永久“块”-------需选择“插入点”及“角度”
(command "-insert" "C:\\Program Files\\AutoCAD 2004\\stripping\\L1mm.dwg" "s" "1" p1)
;;;;;以下不能执行，有办法吗？----------------应该是以上命令没有完全lisp执行完导致的，单条调试是没问题的
(command "-refedit" p1 "o" "A" "") ;;;编辑块名为"L1mm"的块---参照编辑:refedit命令
(command "ERASE" (ssget "X" '((62 . 88))) "") ;;;删除块中颜色为"88"的图形
(command "_refclose""") ;;;关闭块的编辑---关闭参照编辑
(command "undo" "end")
(setvar "osmode" os)
(princ)
)
(command "-insert" "C:\\Program Files\\AutoCAD 2004\\stripping\\L1mm.dwg" "_non" p1 "" "" pause)
改成这样即ＯＫ
页:
[1]