Ashishs 发表于 2022-7-12 17:24:59

我在找autolisp ro

我在一个图形中有几条直线和多段线。我正在寻找一个autolisp例程，在图形中每条线和每条多段线的两端添加一个点。

Emmanuel Delay 发表于 2022-7-12 17:59:49

Command PELP（你的头衔的缩写（种类））
(vl-load-com)

;; https://www.cadtutor.net/forum/topic/18257-entmake-functions/
(defun drawPoint (pt)
 (entmakex (list (cons 0 "POINT")
                 (cons 10 pt))))
                 
(defun c:pelp ( / ss i pt ent)
    (setq ss (ssget (list (cons 0 "LINE,POLYLINE,LWPOLYLINE"))))
    (setq i 0)
    (repeat (sslength ss)
        (setq ent (ssname ss i))
        ;; start point
        (setq pt (vlax-curve-getStartPoint (vlax-ename->vla-object ent)))
        (drawPoint pt)
        ;; end point
        (setq pt (vlax-curve-getEndPoint (vlax-ename->vla-object ent)))
        (drawPoint pt)
        (setq i (+ i 1))
    )
)

Ashishs 发表于 2022-7-12 18:20:10

这有帮助：）非常感谢。

Ashishs 发表于 2022-7-12 18:27:46

还有一个问题。。。端到端连接的线在公共节点处添加2个点。在端到端连接的线路的公共节点上是否只能得到一个点。
页: [1]
查看完整版本: 我在找autolisp ro