社区 › Auto Lisp › 画一条闭合的外线b

YSRINY2I 发表于 2022-7-5 16:14:37

画一条闭合的外线b

大家好，
 
我想要一个lisp例程，用于绘制标题栏周围或图形大多数外部部分的闭合多段线。我有很多文件要做闭合多边形的打印。你能帮我解决这个问题吗。我随此查询发送了一些示例文件。
 
亲切的问候
功能_16_05。图纸
GN21017-01-A3。图纸
R-0174777-0003-Y（待更新）。图纸
T-010114。图纸

ronjonp 发表于 2022-7-5 16:37:32

http://www.lee-mac.com/ssboundingbox.html

YSRINY2I 发表于 2022-7-5 16:50:27

谢谢你，先生，
 
它使物体周围形成3d立体。但我只需要围绕对象的闭合多段线。因为我需要执行另一个程序来制作pdf。该软件只能识别Lw多段线。请帮帮我。
 
谨致问候，
斯里尼瓦萨罗。y

Lee Mac 发表于 2022-7-5 17:02:59

请尝试以下测试程序：
(defun c:test ( / box sel )
   (if (and (setq sel (ssget))
            (setq box (LM:ssboundingbox sel))
       )
       (vla-put-closed
         (vlax-invoke               
               (vlax-get-property (vla-get-activedocument (vlax-get-acad-object))
                   (if (= 1 (getvar 'cvport))
                     'paperspace
                     'modelspace
                   )
               )
               'addlightweightpolyline
               (apply 'append
                   (mapcar '(lambda ( x ) (mapcar '(lambda ( y ) ((eval y) box)) x))
                      '(
                           (caar   cadar)
                           (caadrcadar)
                           (caadr cadadr)
                           (caarcadadr)
                     )
                   )
               )
         )
         :vlax-true
       )
   )
   (princ)
)
(vl-load-com) (princ)

YSRINY2I 发表于 2022-7-5 17:26:49

谢谢李。

查看完整版本: 画一条闭合的外线b