社区 › Auto Lisp › 插入按钮

Lee Mac 发表于 2022-7-6 11:08:00

那么也许可以选择上面的选项（2）

Kenter 发表于 2022-7-6 11:10:46

哈哈，我觉得这不是一个简单的方法。谢谢你的帮助，李。
 
肯特

Lee Mac 发表于 2022-7-6 11:13:56

您可以使用它添加/删除支持路径：
 

(defun LM:AddSupportPaths ( lst / PreferenceFiles SupportPaths )
;; © Lee Mac~14.06.10
;; (AddSupportPaths '("C:\\Folder" "C:\\Folder\\Subfolder" ... )
(vl-load-com)

(setq SupportPaths
   (vla-get-SupportPath
   (setq PreferenceFiles
       (vla-get-files
         (vla-get-preferences
         (vlax-get-acad-object)
         )
       )
   )
   )
)

(vla-put-SupportPath PreferenceFiles
   (LM:lst->str
   (cons SupportPaths
       (vl-remove-if
         (function
         (lambda ( s )
             (vl-string-search s SupportPaths)
         )
         )
         lst
       )
   )
   ";"
   )
)
lst
)

(defun LM:RemoveSupportPaths ( lst / PreferenceFiles SupportPaths )
;; © Lee Mac~14.06.10
;; (RemoveSupportPaths '("C:\\Folder" "C:\\Folder\\Subfolder" ... )
(vl-load-com)

(setq SupportPaths
   (vla-get-SupportPath
   (setq PreferenceFiles
       (vla-get-files
         (vla-get-preferences
         (vlax-get-acad-object)
         )
       )
   )
   )
)

(vla-put-SupportPath PreferenceFiles
   (LM:lst->str
   (vl-remove-if
       (function
         (lambda ( s )
         (vl-position s lst)
         )
       )
       (LM:StringParser SupportPaths ";")
   )
   ";"
   )
)
lst
)

(defun LM:lst->str ( lst del )
;; © Lee Mac~14.06.10
(if (cdr lst)
   (strcat (car lst) del (LM:lst->str (cdr lst) del))
   (car lst)
)
)

(defun LM:StringParser ( str del )
;; © Lee Mac~14.06.10
(if (setq pos (vl-string-search del str))
   (cons (substr str 1 pos)
         (LM:StringParser (substr str (+ pos 1 (strlen del))) del))
   (list str)
)
)

 
否则，如果您需要帮助修改我的原始代码，请告诉我。

Kenter 发表于 2022-7-6 11:18:04

我编辑了Lee Mac提供的代码，并想做一个“if”语句，这样他的代码或添加到末尾的类似代码都可以运行。用户将被要求输入零件数量，并将其存储为“qty”，然后如果（=数量1），则执行LeeMac代码，否则如果（=数量2），则在末尾添加代码。现在，不管发生什么，它只会执行李的代码。感谢您的帮助。
 
肯特
 
P、 对于单箭头，我宁愿它没有要求任何方向，而是询问它是指向上还是向下，然后将其插入该方向。
李·阿鲁。LSP

Lee Mac 发表于 2022-7-6 11:20:11

顺便说一句，当我收到sec时，我会看一看：我建议你设置格式设置，不要插入标签，当你在论坛上发布时，它会影响布局

Kenter 发表于 2022-7-6 11:23:33

“不插入标签”是什么意思？？我该怎么改变呢？

Lee Mac 发表于 2022-7-6 11:26:19

也许是这样的：
 
（同样，未经测试）
 
请确保提示输入正确的数据类型，同时请记住，IF语句只接受一个“then”和一个“else”表达式，因此需要使用一个progn包装多个表达式，以将其作为一个progn语句进行计算。
 
李

Lee Mac 发表于 2022-7-6 11:30:34

 
你的缩进都是制表的——当使用标签张贴在论坛上时，这看起来不太对劲——更不用说必须重新格式化了。
 
在VLIDE中，转至“工具”>“环境选项”>“Visual LISP格式选项”

Kenter 发表于 2022-7-6 11:34:30

完成后，我想知道我该怎么做，因为每次我点击格式，奇怪的事情就会发生。谢谢

Lee Mac 发表于 2022-7-6 11:35:43

不幸的是，我有着强迫症式的思维，我倾向于按照自己的意愿进行格式化。。。

查看完整版本: 插入按钮