最好的。lsp文件

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:\）

copy


(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的这个简单例子。它通过简单地选择链中的对象，将在其端点接触的所有实体连接到一条多段线中。

copy

;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)
)

[编程交流] 最好的。lsp文件

发表回复

精选推荐