我编的一个小程序

wzq · 发表于 2003-7-29 12:43:00

(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 · 发表于 2003-7-29 13:16:00

(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 · 发表于 2003-7-29 13:20:00

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

我编的一个小程序

发表回复

精选推荐