什么'；这有什么问题吗

mit · 发表于 2022-7-5 17:01:43

大家好

我对这个lisp代码有一些问题
我想将DWG文件连接到autocad map 3d
当我运行代码时，它提示了这个错误

这是一个错误提示：

>>命令：LLMS\u ATTACH\u CHAN
>>从M:\LLMS\U CAD\Parcels\Chanthaboury查询。dwg。。。
>>正在执行属性查询。。。完成。
>>正在执行位置查询。。。完成。
>>显示查询的对象。。。
>>已查询611个对象。未知命令“LLMS\u ATTACH\u CHAN”。按F1键获取帮助。

这是我的代码：

copy

(defun c:LLMS_ATTACH_CHAN (/ ade_cmddia_before_qry echo ortho dwgname dwg_id)
   ;store system variables
   (setq ade_cmddia_before_qry (getvar "cmddia"))
   (setq echo (getvar "CMDECHO"))
   (setq ortho (getvar "ORTHOMODE"))
   ;set system variables
   (setvar "cmddia" 0)
   (setvar "CMDECHO" 0)
   (setvar "ORTHOMODE" 1)
   (ade_projsetwscode "UTM84-48N")
   (setq dwgname "M:\\LLMS_CAD\\Parcels\\Chanthaboury.dwg")
   (if (/= nil dwgname)
       (progn
      (setq dwg_id (ade_dsattach dwgname))
                   (ade_dwgactivate dwg_id)
            (ade_qryclear)
            (ade_qrysetaltprop nil)
          
                   (ade_qrydefine '("" "" "" "Location" ("all" )""))
            (ade_qrysettype "draw")
                   (ade_qrydefine '("AND" "" "" "property" ("layer" "=" "Chanthaboury") "" ))
            (ade_qryexecute)
                   (ade_qryclear)
                   (command "_zoom" "e" "")
        )
             (alert "Can't attach the drawing")
    )
 ;restore system variables
 (setvar "cmddia" ade_cmddia_before_qry)
 (setvar "CMDECHO" echo)
 (setvar "ORTHOMODE" ortho)
(princ)
)