yshf 发表于 2005-6-10 18:05:00

关于“ALIGN”在程序中不能正确执行的问题

陈老师，您好！今有一程序如下：<BR>(defun c:zbhs()<BR>               (setq p1         '(0 0)               p2 '(0 1100)<BR>                                                                                       p3         '(65696.6352 91907.3854)<BR>                                                                              p4       '(66795.5702 91955.7778)<BR>                                                                                       pp         '(66015.9240 91875.8585)<BR>                                                                               cm               (getvar "cmdecho")<BR>               )<BR>               (setvar "cmdecho" 0)<BR>               (command "point"       pp) <BR>               (setq en (entlast))       <BR>               (command "_align" en "" p3 p1 p4 p2 "" "y") <BR>               (setq pt (cdr (assoc 10 (entget en))))<BR>               (entdel en)<BR>               (setvar "cmdecho" cm) (princ)<BR>)


在Auto CAD 2000中运行，遇到以下问题：<BR>Command: zbhs<BR>Unknown command "ALIGN".       Press F1 for help.<BR>&lt;Entity name: 193B980&gt;<BR>                                                                                                                                                               |                       （程序停止，回车后显示如下：）<BR>Unknown command "ZBHS".       Press F1 for help.<BR>Unknown command "ZBHS".       Press F1 for help.<BR>Unknown command "ZBHS".       Press F1 for help.<BR>Unknown command "Y".       Press F1 for help.


但如果在程序执行前，键入“ALIGN”，并一路回车至命令结束，再运行程序，则又能正确运行，请问陈老师，这是怎么回事，如何解决？
页: [1]
查看完整版本: 关于“ALIGN”在程序中不能正确执行的问题