社区 › Auto Lisp › 需要帮助。

Oliver 发表于 2022-7-6 06:19:36

需要帮助。

 
试着观察一下这些照片上有什么不同，好了，我只想再请你帮个小忙，那可以创建/制作一个点，我想做手工输入，复制点。
 
谢谢

pBe 发表于 2022-7-6 07:01:07

(vl-load-com)
;;;        Stefan MBR        ;;;
(defun C:TEST ( / ss lst en l)
(if
   (setq ss (ssget '((0 . "LINE,*POLYLINE"))))
   (progn
   (repeat (sslength ss)
       (setq lst (cons (vlax-ename->vla-object (setq en (ssname ss 0))) lst))
       (ssdel en ss)
   )
   (while (cdr lst)
       (foreach e (cdr lst)
         (foreach int (l2p (vlax-invoke (car lst) 'IntersectWith e acExtendNone))
         (if (not (vl-some (function (lambda (x) (equal (distance int x) 0.0 1e-)) l))
             (setq l (cons int l))
         )
         )
       )
       (setq lst (cdr lst))
       )
   )
   )
(if l (foreach n l (entmake (list '(0 . "POINT") (cons 10 n)))))
(princ)
)

(defun l2p (l)
(if l
   (cons (list (car l) (cadr l) (caddr l)) (l2p (cdddr l)))
   )
)

Oliver 发表于 2022-7-6 07:25:04

哦上帝非常感谢。。这就是我需要的。。

查看完整版本: 需要帮助。