Jman 发表于 2022-7-5 20:17:30

这是一个仅用于案例工作的调色板
 
 

tzframpton 发表于 2022-7-5 20:23:18

明白了。看起来你已经用尽了所有的选择。是时候升级到更好的程序了。

Jman 发表于 2022-7-5 20:27:06

此调色板仅用于管道
 
 

tzframpton 发表于 2022-7-5 20:31:15

使用配置文件是另一种选择。。。。

Jman 发表于 2022-7-5 20:34:20

谢谢你，我的朋友。我还没试过哈哈
我仍然希望得到一个可以切换的lisp例程
在2之间。

tzframpton 发表于 2022-7-5 20:35:17

耐心点，我们这里有一些非常慷慨的程序员，他们喜欢为人们做这件事。现在，如果你向PayPal账户提供几美元，你肯定会得到一些关注。给别人买几箱啤酒的节目能大大提高效率，哈哈。
 

BIGAL 发表于 2022-7-5 20:38:55

您可以动态重置支持路径，是的，只需在键盘上安装TP1
 

(defun c:TP1 ()
(setq *files*(vla-get-files(vla-get-preferences (vlax-get-Acad-object))))
(setq paths (vla-get-SupportPath *files*))

(setq cMypaths
"P:\\autodesk\\supportfiles;
P:\\autodesk\\lisp;
P:\\autodesk\\fonts;
P:\\autodesk\\hfs fonts;"
)
(setq newpath (strcat cMypaths paths))
(vla-put-SupportPath *files* newpath) ; this updates your support path
(command "open toolpalette" ) ; I dont know about this working
)

iconeo 发表于 2022-7-5 20:43:26

这就是我的安装方式。阿卡多克。lsp加载我们的ToolPalette路径。lsp，我们从功能区上的一个下拉按钮访问所有这些。
 
(defun C:TLP ()
(vla-put-ToolPalettePath (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))) (strcat (getvar "ROAMABLEROOTPREFIX") "Support\\ToolPalette"))
)

(defun C:TLP_annotation ()
(command
   "*_TOOLPALETTEPATH"
   "V:\\AutoCAD\\palettes\\annotation")
)

(defun C:TLP_cmu ()
(command
   "*_TOOLPALETTEPATH"
   "V:\\AutoCAD\\palettes\\cmu")
)
页: 1 [2]
查看完整版本: Lisp请求