Pline删除节点

laiz3000 · 发表于 2017-7-13 17:24:20

学习学习一下

bingshuier · 发表于 2017-7-14 09:15:33

这个东西强哦~增加节点，删节点一起学习了~

876510625 · 发表于 2017-7-26 14:00:10

删除节点删除节点

qyming1996 · 发表于 2017-7-26 19:43:49

大师w5555

ganzhijian · 发表于 2017-9-11 13:18:21

有添加的，就差这个删除的

jiaoquangb · 发表于 2017-10-10 14:36:10

看看是不是很好使用，谢谢了

debugchen · 发表于 2017-10-11 03:39:35

回复看看学习下

向嘟嘟 · 发表于 2017-10-13 08:52:49

回复看看源码

tmwall · 发表于 2017-10-20 01:13:37

强大的程序。。。。。。。。。。。

fate009 · 发表于 2017-12-4 12:17:08

学习一下，谢谢

w379106181 · 发表于 2018-1-12 16:47:21

[pcode=lisp,true]
(defun c:tt ()
      (vl-load-com)
      (setq acad (vlax-get-acad-object))
      (setq acaddocument (vla-get-activedocument acad))
      (setq mspace (vla-get-modelspace acaddocument))
      (setq h (getreal "\n请输入偏移距离"))
      (setq endata (entsel "\n请选择一条线"))
      (setq p0 (cadr endata))
      (setq l1 (vlax-ename->vla-object (car endata)))
      (setq p1 (vlax-curve-getclosestpointto l1 p0 t))
      (setq ang1 (angle p1 (mapcar '+ p1 (vlax-curve-getfirstderiv l1 (vlax-curve-getparamatpoint l1 p1)))))
      (setq p2 (polar p1 (+ ang1 (/ pi 2)) h))
      (setq p3 (polar p1 (- ang1 (/ pi 2)) h))
      (setq obj (vla-insertblock mspace (vlax-3d-point p2) "11005" 1 1 1 ang1))
      (setq loop t)
      (while loop
               (setq code (grread t 8))
               (cond
                        ((= (car code) 5)
                     (setq ang2 (- (angle p1 (cadr code)) ang1))
                     (if (< ang2 0)
                           (setq ang2 (+ ang2 (* 2 pi))))
                        (cond
                           ((and (> ang2 0 ) (< ang2 (/ pi 2)))
                           (vla-put-Rotation obj ang1)
                           (vla-put-insertionpoint obj (vlax-3d-point p2))
                           )
                           ((and (> ang2 (/ pi 2) ) (< ang2 pi))
                           (vla-put-Rotation obj (- ang1 pi))
                           (vla-put-insertionpoint obj (vlax-3d-point p2))
                           )
                           ((and (> ang2 pi ) (< ang2  (* 3 (/ pi 2))))
                           (vla-put-Rotation obj (- ang1 pi))
                           (vla-put-insertionpoint obj (vlax-3d-point p3))
                           )
                           ((and (> ang2 (* 3 (/ pi 2))) (< ang2  (* pi 2)))
                           (vla-put-Rotation obj ang1)
                           (vla-put-insertionpoint obj (vlax-3d-point p3))
                           )
                        )
                     )
                     ((= (car code) 25) (setq loop nil) (vla-delete obj))
                     (T (setq loop nil))
                     )
      )
  )[/pcode][pcode=lisp,true]
(defun c:tt ()
      (vl-load-com)
      (setq acad (vlax-get-acad-object))
      (setq acaddocument (vla-get-activedocument acad))
      (setq mspace (vla-get-modelspace acaddocument))
      (setq h (getreal "\n请输入偏移距离"))
      (setq endata (entsel "\n请选择一条线"))
      (setq p0 (cadr endata))
      (setq l1 (vlax-ename->vla-object (car endata)))
      (setq p1 (vlax-curve-getclosestpointto l1 p0 t))
      (setq ang1 (angle p1 (mapcar '+ p1 (vlax-curve-getfirstderiv l1 (vlax-curve-getparamatpoint l1 p1)))))
      (setq p2 (polar p1 (+ ang1 (/ pi 2)) h))
      (setq p3 (polar p1 (- ang1 (/ pi 2)) h))
      (setq obj (vla-insertblock mspace (vlax-3d-point p2) "11005" 1 1 1 ang1))
      (setq loop t)
      (while loop
               (setq code (grread t 8))
               (cond
                        ((= (car code) 5)
                     (setq ang2 (- (angle p1 (cadr code)) ang1))
                     (if (< ang2 0)
                           (setq ang2 (+ ang2 (* 2 pi))))
                        (cond
                           ((and (> ang2 0 ) (< ang2 (/ pi 2)))
                           (vla-put-Rotation obj ang1)
                           (vla-put-insertionpoint obj (vlax-3d-point p2))
                           )
                           ((and (> ang2 (/ pi 2) ) (< ang2 pi))
                           (vla-put-Rotation obj (- ang1 pi))
                           (vla-put-insertionpoint obj (vlax-3d-point p2))
                           )
                           ((and (> ang2 pi ) (< ang2  (* 3 (/ pi 2))))
                           (vla-put-Rotation obj (- ang1 pi))
                           (vla-put-insertionpoint obj (vlax-3d-point p3))
                           )
                           ((and (> ang2 (* 3 (/ pi 2))) (< ang2  (* pi 2)))
                           (vla-put-Rotation obj ang1)
                           (vla-put-insertionpoint obj (vlax-3d-point p3))
                           )
                        )
                     )
                     ((= (car code) 25) (setq loop nil) (vla-delete obj))
                     (T (setq loop nil))
                     )
      )
  )[/pcode]

moumoumouaixyf · 发表于 2018-4-6 13:33:29

学习了、受教受教

7325pink · 发表于 2018-4-14 06:11:32

非常实用，谢谢楼主

zhong2013 · 发表于 2018-4-24 20:26:38

常回复主题

miracool · 发表于 2018-4-28 09:54:46

这个功能很实用！学习一下

账号		自动登录	找回密码
密码			立即注册

[教学] Pline删除节点