社区 › Auto Lisp › 有没有办法用lisp,在选定折线的所有顶点上生成垂直构造线？

faizur 发表于 2022-9-9 23:19:18

有没有办法用lisp,在选定折线的所有顶点上生成垂直构造线？

有没有办法用lisp,在选定折线的所有顶点上生成垂直构造线？
这是一条折线，我想将垂直构造线添加到所有顶点。可能吗？

ronjonp 发表于 2022-9-10 00:31:37

试试这个：
(defun c:foo (/ s)
;; RJP » 2022-09-09
;; Generate vertical xlines on polyline vertexes
(if (setq s (ssget '((0 . "LWPOLYLINE"))))
    (progn (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
             (foreach p        (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget e))
             (entmakex (list '(0 . "XLINE")              '(100 . "AcDbEntity")'(67 . 0)
                             '(8 . "XLINE")              '(100 . "AcDbXline")   p
                             '(11 0.0 1.0 0.0)
                              )
             )
             )
           )
           ;; Make layer not plot and color 128,128,128
           (entmod (append (entget (tblobjname "LAYER" "XLINE")) '((290 . 0) (420 . 8421504))))
    )
)
(princ)
)

查看完整版本: 有没有办法用lisp,在选定折线的所有顶点上生成垂直构造线？