我编的一个小程序

wzq

(defun c:d0301()
(SETQ thbl (GETVAR "dimscale"))
(COMMAND "REDRAW")
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq part "c:\\dzdwg\\d0301")
(setq tt (getpoint "Insertion Point:"))
(command "insert" part tt thbl thbl)
(command "explode" tt "")
(command "redraw")
(setvar "cmdecho" 1)
(setvar "blipmode" 1)
)
  以上是我编的一个小程序，目的用于插入一个符号（即C:\DZDWG\D0301),但在CAD下
运行后,总是出现"函数被取消"这一提示,但命令还能完成运行,插入符号也能完成,我想请教
各位高手的是：上面的程序存在什么问题，怎样才能消除"函数被取消"这一提示。
    谢谢。

spring

(defun c:d0301()
(setq thbl (getvar "dimscale"))
(command "redraw")
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq part "c:\\dzdwg\\d0301")
(setq tt (getpoint "insertion point:"))
(command "insert" part tt thbl thbl "")
(command "explode" tt "")
(command "redraw")
(setvar "cmdecho" 1)
(setvar "blipmode" 1)
)

xazhji

关键在你的insert命令中使用不当！
将 insert    ->  -insert          而且，你的insert 中的相应次数也不对，  应该是：
Command: -insert
Enter block name or [?] <d0301>:
Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>:
Enter Y scale factor <use X scale factor>:
Specify rotation angle <0>:

共5次！