jamathi 发表于 2022-7-6 10:42:36

被取代的命令别名

大家好,
 
我们公司有一个自定义程序与我们的AutoCad 2008一起运行。程序员在程序中包含了默认命令和cutom命令。
 
问题是,我在命令别名编辑器中的自定义快捷方式都不起作用。还有什么可以给我的吗。pgp文件优先。到目前为止,我已经能够通过制作新的别名来解决这个问题,这些别名既不会与默认别名冲突,也不会与他的程序中的别名冲突。这就排除了1个字母的别名,因为它们都被拿走了。
 
这里的Cad经理不想与程序员讨论这一点,因为他发现我对这一点的需求无关紧要。
 
有什么想法吗?

lpseifert 发表于 2022-7-6 10:56:17

lisp例程中定义的命令名(别名)(即defun c:commandname)优先

Tharwat 发表于 2022-7-6 11:02:36

实际上,因为程序员改变了你的。pgp文件,这意味着您必须再次重新创建您的WIN缩写词onec。但事实并非如此
那么多时间。最好留一份你的简历。更改文件后,将pgp文件放在一旁。
 
塔瓦特

ReMark 发表于 2022-7-6 11:12:38

acad的当前“路径”是什么。正在加载的pgp文件?
 
我假设你有一份自己的acad。pgp文件可用,对吗?您当前是否定义了包含自定义pgp文件的文件夹的“路径”(包含在“工具”>“选项”>“文件”中)?
 
我总是觉得至少有两个acad。pgp文件(独立系统)或更多,在网络系统上,最后加载的文件是被使用的文件。

rkmcswain 发表于 2022-7-6 11:13:09

 
A) 有没有办法禁用自定义程序定义的快捷方式。构建良好的应用程序将包括此选项。
 
B) 正如lpseifert所提到的,lisp函数总是胜过pgp快捷方式。
 
C) 最后,放弃pgp文件,将lisp定义的快捷方式放在“acaddoc.lsp”或“your\u custom\u menu.mnl”中。这是启动文件的加载顺序,在您的情况下可能需要参考。

Tharwat 发表于 2022-7-6 11:25:52

 
路径是;工具->自定义->编辑程序参数
 
当做
 
塔瓦特

rkmcswain 发表于 2022-7-6 11:27:56

 
不,他的意思是你的PGP文件在哪里,AutoCAD正在读取的那个。。。
 
要找到答案,请将其粘贴到AutoCAD命令行:(findfile“Acad.pgp”)

jamathi 发表于 2022-7-6 11:35:44

一些快速的回答,prommer没有修改我的。pgp文件,它仍然是相同的。
 
该程序没有对其禁用,唯一的方法是解除文件加载的分配,但这将导致巨大的问题。
 
lisp取代了。pgp公司
 
我将研究如何制作rkmcswain提到的包含shorcuts的lisp。。。。。只是不知道怎么做

lpseifert 发表于 2022-7-6 11:47:16

 
这是我的《阿卡多克》的一部分。lsp文件给你一个想法。。。该文件可以使用记事本创建-另存为acaddoc。acad支持路径中的lsp。
(defun c:后面的字母将是“快捷方式”

(defun c:ue ()(command "ucs" "e"))
(defun c:ul ()(command "ucs" "e" "l"))
(defun c:uw ()(command "ucs" "w"))
(defun c:uv ()(command "ucs" "v"))
(defun c:up ()(command "ucs" "p"))

(defun c:w ()(command "zoom" "w"))
(defun c:p ()(command "zoom" "p"))
(defun c:ze ()(command "zoom" "e"))
(defun c:zo ()(command "zoom" "o"))
(defun C:A ()( COMMAND "ZOOM" "E" "Zoom" "0.99x")(princ))

(defun C:RZ ()( COMMAND "UCS" "Z" "90"))
(defun c:rx ()(command "ucs" "x" "90"))
(defun c:ry ()(command "ucs" "y" "90"))

(defun C:AO ()( COMMAND "AREA" "O" ))
(defun C:AOL ()( COMMAND "AREA" "O" "L" ))

(DEFUN C:W1 ()(COMMAND"WIPEOUT" "F" "ON"))
(DEFUN C:W0 ()(COMMAND"WIPEOUT" "F" "OFF"))

(defun c:lt() (command "_lengthen" "T"))
(defun c:ld() (command "_lengthen" "DE"))
(defun c:ldy () (command "_lengthen" "dy"))

(defun c: s() (command "stretch" "C"))

(defun c:c2 () (command "circle" "2P"))
(defun c:ct () (command "circle" "t"))
页: [1]
查看完整版本: 被取代的命令别名