社区 › Auto Lisp › 最好的。lsp文件

Designer 发表于 2022-7-6 07:42:09

最好的。lsp文件

我是新来的。lsp文件，所以我想问你们是否可以在这里张贴。你发现对你有用的lsp以及它的作用。

James 发表于 2022-7-6 07:46:50

电池2.lsp
 
它为空心墙绘制隔热层，简单而有效。
电池2.lsp

Seann 发表于 2022-7-6 07:50:17

访问此处：
http://www.dotsoft.com/
 
我会张贴2我喜欢，但由于担心版权，我只会把你发送到该网站。lsp文件位于zip文件中，包含有关如何加载/使用它们的信息。
 
快速键。zip-将任何命令缩短为键笔划，即最大化显示=ze。任何需要另一个输入的命令都可以使用。很酷。
 
最近的zip记录了在Autocad中打开的最后26个文件。当你在3个网络驱动器和8个文件夹中工作时，只需将其放在那里，而不用一路返回路径，这非常好。

tzframpton 发表于 2022-7-6 07:53:49

对于半径管网和管道，请在此网站上搜索标题为“Better Multiline”的线程，然后抓取*。AMSI制作的lsp文件。。。。太棒了。我觉得我应该为那件事付钱给他。。。英雄联盟

Seann 发表于 2022-7-6 07:56:48

阿斯米也给我写了一个加长线lsp，我们的办公室爱上了它，但它是根据我们的图纸过滤的，但如果你想要的话，我也可以扔掉它。或者到这里来，从许多优秀的Lisp程序者那里学习一系列延长线的常规动作http://www.cadtutor.net/forum/showthread.php?t=10992

rkmcswain 发表于 2022-7-6 07:59:44

构造一条三维多段线，询问用户每个顶点的高程。不包括错误检查。
 

(defun c:my3dPoly ( / a)
(command "._3dpoly")
(while (eq 1 (logand 1 (getvar "cmdactive")))
   (if a
   (setq a (getpoint a "\n Pick Point: "))
   (setq a (getpoint "\n Pick Point: "))
   )
   (if a
   (command (list (car a) (cadr a) (getreal "\n Enter Elevation: ")))      
   (command)
   )
)
(princ)
)

kpblc 发表于 2022-7-6 08:03:56

>rkmcswain：检查此线程：http://www.cadtutor.net/forum/showthread.php?t=7563

rkmcswain 发表于 2022-7-6 08:04:38

 
为什么？。。。。。。。。。。。。。。。。

kpblc 发表于 2022-7-6 08:10:06

构造3DPolyline（我认为）。类似的问题在http://www.cadtutor.net/forum/showthread.php?t=9538&page=2

ASMI 发表于 2022-7-6 08:11:42

在查看了提供的绘制三维多段线的功能以及每个顶点的高程查询后，我无法继续编写：
 
(defun c:3pl(/ pt tPt oldEcho msCount oldOsn undoLst *error*)

(defun *error*(msg)
           (command)
           (setvar "CMDECHO" oldEcho)
           (princ)
   ); end of *error*

(if(not 3pl:elev)(setq 3pl:elev 0.0))
(setq pt T
oldEcho(getvar "CMDECHO")
msCount 0
undoLst '()
); end setq
(setvar "CMDECHO" 0)
(while(/= 'LIST(type pt))
   (initget 128)
        (setq pt(getpoint
                    (strcat "\n>>> Pick point, specify X,Y or new elevation Z = <"
                    (rtos 3pl:elev)
                    ">: ")
        )
      ); end setq
   (cond
   ((= 'LIST(type pt))
        (setq pt(list(car pt)(cadr pt)3pl:elev)
             tPt pt); end setq
                ); end condition #1
((and(not(null pt))(distof pt))
                (setq 3pl:elev(atof pt))
        ); end condition #2
      ((= 'STR(type pt))
        (princ "\nInvalid option keyword! ")
); end condition #3
   ); end cond
   ); end while
(if pt
   (progn
   (setq oldOsn(getvar "OSMODE"))
   (setvar "OSMODE" 0)
        (command "_.3dpoly" pt)
   (setvar "OSMODE" oldOsn)
        (while(= 1(getvar "CMDACTIVE"))
          (if(= 'LIST(type pt))
                   (setq undoLst
                   (append(list pt)undoLst))
           ); end if
        (initget 128)
(if
   (setq pt(getpoint tPt
            (strcat "\n>>> Pick point, specify X,Y or new elevation Z = <"
            (rtos 3pl:elev)
            (if(= 0 msCount)"> : "
      "> : "); end if
                    )
                    )
    ); end setq
   (cond
((= 'LIST(type pt))
(setq oldOsn(getvar "OSMODE"))
         (setvar "OSMODE" 0)
                (command
               (list(car pt)(cadr pt)3pl:elev)); end command
(setvar "OSMODE" oldOsn)
          (setq tPt pt
                msCount(1+ msCount); end setq
        ); end setq
              ); end condition #1
        ((distof pt)
                (setq 3pl:elev(atof pt))
              ); end condition #2
((and(= "C"(strcase pt))(/= 0 msCount))
               (command "_c")
        ); end condition #3
((= "U"(strcase pt))
                (if undoLst
               (progn
                  (setq undoLst(cdr undoLst)
                              tPt(car undoLst)); end setq
                (command "_u")
                   ); end progn
              ); end if
        ); end condition #4
        (t
                (princ "\nInvalid keyword option! ")
        ); end condition #5
); end cond
   (command)
); end if
   ); end while
   ); end progn
   ); end if
(setvar "CMDECHO" oldEcho)
(princ)
); end of c:3pl

查看完整版本: 最好的。lsp文件