song宋_74729 发表于 2022-8-14 08:38:46

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

本帖最后由 song宋_74729 于 2022-8-14 10:50 编辑

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

yshf 发表于 2022-8-14 09:45:19

; ;; 试用以下程序
(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 发表于 2022-8-14 10:49:37

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


可以了谢谢指点
页: [1]
查看完整版本: (已解决)交点中心加单点