Lisp请求

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

copy


(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，我们从功能区上的一个下拉按钮访问所有这些。

copy

(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")
)

[编程交流] Lisp请求

发表回复

精选推荐