社区 › Auto Lisp › 寻找一个Lisp程序的人

LCE 发表于 2022-7-5 16:52:09

不客气。

sprinkle 发表于 2022-7-5 16:54:16

我知道这是一个旧的线程，但LCE（或任何其他保存它的人）我希望有这个lisp文件，如果你仍然有它。谢谢

Lee Mac 发表于 2022-7-5 16:57:00

也许是这样？
 

(defun c:legend ( / df i ln p1 pt sp ) ;; Lee Mac 2011
(if
   (and
   (setq pt (getpoint "\nSpecify Point for Legend: "))
   (setq ln (getdist"\nSpecify Length of Lines: " pt))
   (setq pt (trans pt 1 0) i -1
         sp (* 1.5 (getvar 'TEXTSIZE))
   )
   )
   (while (setq df (tblnext "LAYER" (null df)))
   (entmakex
       (list
         (cons 0 "LINE")
         (cons 8(cdr (assoc 2 df)))
         (cons 6 "ByLayer")
         (cons 39 0.0)
         (cons 62 256)
         (cons 10 (setqp1 (polar pt (* 1.5 pi) (* (setq i (1+ i)) sp))))
         (cons 11 (polar p1 0. ln))
         (cons 370 -1)
       )
   )
   (entmakex
       (list
         (cons 0 "TEXT")
         (cons 7 (getvar 'TEXTSTYLE))
         (cons 8 (cdr (assoc 2 df)))
         (cons 6 "ByLayer")
         (cons 39 0.0)
         (cons 62 256)
         (cons 10 p1)
         (cons 40 (getvar 'TEXTSIZE))
         (cons 1(cdr (assoc 2 df)))
         (cons 370 -1)
       )
   )
   )
)
(princ)
)

sprinkle 发表于 2022-7-5 17:02:29

太棒了！非常感谢。

Lee Mac 发表于 2022-7-5 17:03:34

不客气，斯普林

phani_sai 发表于 2022-7-5 17:07:47

搜索LISP会在每个层中绘制线条，以及layername和layerdescription的文本

phani_sai 发表于 2022-7-5 17:10:52

李，你好，
 
搜索LISP在每个层中绘制线条，以及layername和layerdescription的文本。

BIGAL 发表于 2022-7-5 17:13:45

我们的其他民用软件默认有这个选项，但也有do块和网格，所以你最终会得到挂图，可能是版本2？

Organic 发表于 2022-7-5 17:15:38

 
那是哪个民事程序？

BIGAL 发表于 2022-7-5 17:18:59

Civilcad从80年代就开始使用了，在文本文件操作和重新加载时也会转储你的库样式。我希望看到一个CIV3d用户在不到一个月的时间内做到这一点。由于是Cad经销商提供的，他一定花了几个月的时间才设置好，所以放弃了更改我们的。如果它打嗝，给它一种风格。

查看完整版本: 寻找一个Lisp程序的人