ASMI 发表于 2022-7-6 08:14:10

为了更好地工作，c:3pl函数中进行了一些更改。

ASMI 发表于 2022-7-6 08:19:30

 
如果将*error*函数作为局部变量写入，并且*error*是内部函数，则无需保存和恢复原始*error*函数：
 

(defun myFun (/ *error* ....)

(defun *error*(msg)
.....
); end of *error*
......
); end of myFun

 
错误处理程序的更改版本仅在函数工作期间存在。如果你能领导这个实验，你就会确信这一点。在我看来，保存和恢复处理程序比每次都非常方便。

rkmcswain 发表于 2022-7-6 08:21:48

 
你说得对，我忽略了这是一个局部函数的事实。

ASMI 发表于 2022-7-6 08:24:07

回到“最佳”状态*。lsp。看“获取密码！”在…上http://www.cadalyst.com.很难说所有已出版的节目都属于“最佳”类别，但它们通过了初选，其中有很多好节目。

rkmcswain 发表于 2022-7-6 08:28:09

以下是AUGI论坛正在讨论的一个问题。。。。
 
我拿了原件，做了一些改动。其目的是在保存时保存当前图形的*附加*备份副本（位于BAK文件之上和之外）。我不一定要用这个，但对一些人来说，这可能是需要的。（使用此选项的任何人都可能希望更改额外文件的路径，该文件当前设置为C:\）
 

(DEFUN C:MRSAVE (/ newname)
(setvar "CMDECHO" 0)
(if (zerop (getvar "dwgtitled"))
        (command "._qsave" (getstring "\n Enter drawing name: "))
        (command "_.qsave")
)
(setvar "filedia" 0)
(setq newname
                (strcat
                  "C:\\"
                  (getvar "DWGNAME")
                  "-BAK"                  
                )
)
(if (findfile (strcat newname ".dwg"))
        (command "_.save" newname "_Y")
        (command "_.save" newname)
)
(setvar "filedia" 1)
(princ)
)

tzframpton 发表于 2022-7-6 08:30:07

是的，我花了很多时间翻阅了所有这些档案。里面肯定有一些好东西。我甚至没有想过要发布那个链接

btraemoore 发表于 2022-7-6 08:35:36

www.lee-mac。com这家伙拥有lisp的一切。。。他经常在这里。。。了不起的作家

Lee Mac 发表于 2022-7-6 08:37:48

 
干杯，崔！我非常感谢你对我工作的推荐和赞扬

BIGAL 发表于 2022-7-6 08:40:45

回到Designer，您使用Autocad的目的是什么，然后您将获得许多关于Lisp程序的相关提示。
 
完全同意先看看李的网站，一些很棒的stuf。

troggarf 发表于 2022-7-6 08:43:44

我经常用Kent Cooper的这个简单例子。它通过简单地选择链中的对象，将在其端点接触的所有实体连接到一条多段线中。
;Entity Join All
;Joins lines, arcs & Polylines at their endpoints automatically.
; All you have to do is select one object
; by Kent Cooper @ Autodesk forums

(defun C:EJA (/ peac cmde); = Polyline Edit: Join All
(setq peac (getvar 'peditaccept))
(setvar 'peditaccept 1)
(setq cmde (getvar 'cmdecho))
(setvar 'cmdecho 0)
(command "_.pedit" pause "_join" "_all" "" "")
(setvar 'peditaccept peac)
(setvar 'cmdecho cmde)
(princ)
)
页: 1 [2]
查看完整版本: 最好的。lsp文件