AutoCAD内置命令列表

rlx · 发表于 2022-7-5 15:55:00

mabe应用程序需要重写或更好的错误捕捉

 (setq test (vl-catch-all-apply 'command-s (list "eattedit"))) vs (setq test (vl-catch-all-apply 'command-s (list "lido-edit")))

但若客户使用其他CAD平台，你们甚至离解决方案更远。但是（罗伊的）getcname不管用吗？

lido · 发表于 2022-7-5 15:59:04

我在这个论坛上发布之前尝试了这些功能！
在AutoCAD 2015下：
（getcname“_eattedit”）返回nil
（getcname“eattedit”）返回nil

（=（键入“eattedit）”sym）返回T
（=（输入'abcde'）sym）返回T

ronjonp · 发表于 2022-7-5 16:01:21

然后学着问一个更好的问题。

“请描述您在提出问题之前自己尝试确定问题的诊断步骤。”

lido · 发表于 2022-7-5 16:04:11

使用vl-catch-all-apply和vl-catch-all-error-p函数捕捉错误是可以的，但不能完全解决问题。因为command-s功能。使用命令或vl cmdf函数失败。
遗憾的是，在较旧的AutoCAD版本（例如AutoCAD 2000）或某些CAD平台（例如ZWCAD）下未实现command-s功能。
因此，在我看来，解决这个问题的唯一方法是获取所有内置AutoCAD命令的该死列表。这是否可能？

lido · 发表于 2022-7-5 16:06:43

很抱歉ronjonp先生浪费了你的时间。
侵略在任何情况下都不能解决任何问题！

rlx · 发表于 2022-7-5 16:10:01

也许某个L（ist）M（操作器）有一些聪明的想法或知道一个未记录的命令。但我很好奇，如果你知道eattedit不可用，你会用这些知识做什么。只需显示一条消息，其中包含“抱歉”命令不可用，或者您是否有备份例程？我认为这个网站上有足够多的人能够并愿意帮助你改写你的日常生活或只是你需要的部分。只需“友善并倒带”。。。

Roy_043 · 发表于 2022-7-5 16:14:54

据我所知，没有办法通过Lisp代码获得命令名列表。

对于需要用户输入的_eattedit和其他命令，像这样的东西应该可以工作（我相信在大多数CAD平台上）：

copy

(defun CommandAvailable_P (cmd / ret)
 (setvar 'cmdecho 0)
 (command cmd)
 (setq ret
   (if (zerop (getvar 'cmdactive))
     (progn
       (princ "\r") ; Remove: 'Unable to recognize command "ABC". Please try again.' prompt.
       nil
     )
     (progn
       (command nil)
       T
     )
   )
 )
 (setvar 'cmdecho 1)
 ret
)

Roy_043 · 发表于 2022-7-5 16:16:15

仅供参考：getcname在BricsCAD中运行良好：

copy

(getcname "_eattedit") => "EATTEDIT"
(getcname "_doesnotexist") => nil

lido · 发表于 2022-7-5 16:20:22

非常感谢Roy_043。
使用系统变量CMDACTIVE是关键！
我从未想过这种方法。明亮的

再次感谢您。

hanhphuc · 发表于 2022-7-5 16:21:56

只需测试。。

copy


[color="green"];At this level we can list out [/color] 
([color="blue"]vl-registry-descendents[/color]  (strcat "HKEY_LOCAL_MACHINE\"
         (vlax-product-key)
         "\\Applications\")
 )
[color="green"];but why this level doesn't work ???[/color]
([color="blue"]vl-registry-descendents[/color]
 (strcat "HKEY_LOCAL_MACHINE\"
  (vlax-product-key)
  "\\Applications\"
  "AcEAttEdit"
  [color="red"]"\\Commands"[/color]
  ) 
 )

另一种方法

copy


(defun foo (app ac cmd)
 (and (setq app (findfile app))
      (vl-registry-read
         (strcat "HKEY_LOCAL_MACHINE\"
         (vlax-product-key)
         "\\Applications\"
         ac
                 "\\Commands")
         (strcase cmd )
         ) 
 
      ) 
 )

copy


_$ (foo "AcEAttEdit.arx" "AcEAttEdit" "EATTEDIT")
T
_$ (foo "AcTable.arx" "AcadTable" "EATTEDIT")
nil
_$ (foo "AcTable.arx" "AcadTable" "TINSERT")
T

[编程交流] AutoCAD内置命令列表

发表回复

精选推荐