rlx 发表于 2022-7-5 18:11:23

RLX粘贴

首先祝大家新年快乐。
 
现在，关于这个应用程序，RlxPaste。我经常需要将一些对象从一个dwg复制到另一个dwg。虽然我已经准备好了一个“完美”的应用程序，但我所有的同事都在使用它，我不想在其中添加我的垃圾符号。所以我开发了这个应用程序，它可以让你轻松地创建符号供本地使用。
 
我认为/希望界面是不言而喻的。
 
 
您可以在“设置”对话框中控制网格，并可以选择保存符号的文件夹。顺便说一句，双击以插入，如果您想删除项目，请单击删除按钮，然后单击图像以删除。
 
您可以使用主对话框中的“添加文件夹”按钮一次添加完整的文件夹及其子文件夹。例如，当您有供应商或客户提供的带有公司符号的cd时，这一功能非常有用。
 
希望它有用。
 
 
gr.Rlx


RlxPaste。dcl
RlxPaste。LSP

AIberto 发表于 2022-7-5 18:16:03

非常感谢。rlx，新年快乐！

rlx 发表于 2022-7-5 18:19:11

不客气，阿尔贝托！
 
 
Gr.Rlx

halam 发表于 2022-7-5 18:22:42

谢谢分享！我使用supercopy/superpaste lsp/dcl，但您的代码似乎更适合粘贴

rlx 发表于 2022-7-5 18:25:29

你好，哈兰，很高兴你喜欢它。我不知道supercopy/superpaste，但总是很高兴听到我的更好；-）
 
 
gr.Rlx

Grrr 发表于 2022-7-5 18:29:21

无法测试它
Command: RLXPASTE
bad argument type: streamp nil

rlx 发表于 2022-7-5 18:33:35

 
 
很难说为什么，但您是否选择了一个文件夹来保存您的对象，并且您在该文件夹中有写权限？
 
 
将vlisp编辑器设置为出错时中断，并使用查看错误跟踪来查看错误源。
 
 
顺便说一句，您可能需要删除lisp文件末尾的（c:rlxpast）。这将在加载时启动应用程序。
 
 
gr.Rlx

Grrr 发表于 2022-7-5 18:36:34

Rlx，
如何选择文件夹来保存对象？（我从未获得设置对话框）
我做了你给我的其他建议，结果如下：http://postimg.org/image/u58rxmcut/full/
不确定我是否做错了什么。

rlx 发表于 2022-7-5 18:37:56

您好，Grrr，
 
看起来读取数据文件时出错了
 


(defun RlxPaste_ReadDataFile ( / fp inp)
(setq RlxPaste-DataFileName (strcat (getvar "SAVEFILEPATH") "RlxPaste.dat"))
(if (not (findfile RlxPaste-DataFileName))
   (progn (setq fp (open RlxPaste-DataFileName "w"))(close fp)(gc)))
(if (setq fp (open RlxPaste-DataFileName "r"))
   (while (setq inp (read-line fp))
   (if (findfile inp)(setq RlxPaste-BlockList (cons inp RlxPaste-BlockList)))))
(if fp (close fp))(if RlxPaste-BlockList (setq RlxPaste-BlockList (reverse RlxPaste-BlockList))))


 
我使用savefilepath（在我家的例子中，它包含“C:\Users\Rob\appdata\local\temp”），这通常是一个每个cad用户都有读/写权限的文件夹。从来没有任何问题。但您可以尝试为数据文件创建另一个文件夹，例如：
 
(setq RlxPaste-DataFileName "c:/temp/RlxPaste.dat")
 
不知道您是否知道要通过设置断点来调试程序。将光标放在代码行的开头，按F9键，您会看到一个红色标记，表示程序将在那里等待，以便您可以检查变量。我没有发现我的代码有任何问题，所以我认为这与写访问有关。但如果savefilepath被证明不是万无一失的，我可能会使用另一种策略。
 
Gr.Rlx

halam 发表于 2022-7-5 18:42:02

到目前为止，它仍然有效。我想知道你是否可以得到更好的3D着色预览。。小查兰热
页: [1] 2
查看完整版本: RLX粘贴