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键获取帮助。
 
这是我的代码：
(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)
)

Lee Mac 发表于 2022-7-5 17:33:05

更改：
(command "_zoom" "e" "")至：
(command "_zoom" "_e")

mit 发表于 2022-7-5 17:51:39

这是真的
谢谢你，李

Lee Mac 发表于 2022-7-5 18:02:41

不客气。
页: [1]
查看完整版本: 什么'；这有什么问题吗