(已解决)交点中心加单点

song宋_74729

以框选方式交点中心加单点,能否增加点POINT(增加图层为EL),麻烦帮忙解决问题.

yshf

; ;; 试用以下程序
(defun c:jdd()
    (if (not (tblsearch "Layer" (setq tcm "EL")))
        (vla-Add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) tcm)
    )
    (if (setq ssa (ssget '((0 . "INSERT") (66 . 1) (2 . "Point"))))
        (progn
            (setvar "PDMODE" 96)
            (repeat (setq i (sslength ssa))
                (setq i (1- i))
                (setq pt (cdr (assoc 10 (entget (ssname ssa i)))))
                (entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(100 . "AcDbPoint")
                                (cons 8 tcm)
                                (cons 10 pt)
                         )
                 )
            )
        )
    )
    (princ)                          
)

song宋_74729

yshf 发表于 2022-8-14 09:45
; ;; 试用以下程序
(defun c:jdd()
    (if (not (tblsearch "Layer" (setq tcm "EL")))

可以了谢谢指点