三维多段线对应顶点连线问题！！！！！

wsjwsjwsj · 发表于 2013-11-2 23:27:07

(defun GetLWPolyLineVTX ( / ee j ptslist ve vtx vtxlst)
  (vl-load-com)
(setq ee (car (entsel)))
(command "ucs" "w" )

  (setq  ve (vlax-ename->vla-object ee))
  (setq vtx (vla-get-Coordinates ve ))
  (setq vtxLst (vlax-safearray->list (vlax-variant-value vtx)))
(setq j 0)
(setq PtsList nil)
(repeat (/ (length vtxLst) 3)
(setq PtsList (append PtsList (list (list (nth j vtxLst) (nth (1+ j) vtxLst) (nth (+ 2 j) vtxLst)))))
   (setq j (+ j 3)
);end_repeat
(setq PtsList PtsList);end_defun
   )
)
(defun c:3plx ( / l1 l2 pt1 pt2);;;三维多段线对应顶点连线
  (command "ucs" "w" )
  (setq l1 (GetLWPolyLineVTX))
  (setq l2 (GetLWPolyLineVTX))

  (repeat (length l1)
  (setq pt1 (car l1)
pt2 (car l2)
)
  (command "line"  pt1 pt2 "" )
  (setq l1 (cdr l1)
l2 (cdr l2))
)
  )

能将连接的直线改成三维线就好了，求高手！！！！

vlisp2012 · 发表于 2013-11-3 07:58:21

(defun GetLWPolyLineVTX ( / ee j ptslist ve vtx vtxlst)
  (vl-load-com)
(setq ee (car (entsel)))
(command "ucs" "w" )

  (setq  ve (vlax-ename->vla-object ee))
  (setq vtx (vla-get-Coordinates ve ))
  (setq vtxLst (vlax-safearray->list (vlax-variant-value vtx)))

(setq j 0)
(setq PtsList nil)
(repeat (/ (length vtxLst) 3)
(setq PtsList (append PtsList (list (list (nth j vtxLst) (nth (1+ j) vtxLst) (nth (+ 2 j) vtxLst)))))

   (setq j (+ j 3)
);end_repeat
(setq PtsList PtsList);end_defun
   )
)

(defun c:3plx ( / l1 l2 pt1 pt2);;;三维多段线对应顶点连线
  (command "ucs" "w" )
  (setq l1 (GetLWPolyLineVTX))
  (setq l2 (GetLWPolyLineVTX))

  (repeat (length l1)
  (setq pt1 (car l1)
pt2 (car l2)
)
  (command "3DPOLY"  pt1 pt2 "" )
  (setq l1 (cdr l1)
l2 (cdr l2))
)

  )

wsjwsjwsj · 发表于 2013-11-4 22:18:43

vlisp2012 发表于 2013-11-3 07:58
(defun GetLWPolyLineVTX ( / ee j ptslist ve vtx vtxlst)
(vl-load-com)
(setq ee (car (entsel) ...

能不能让位置对应连线，而不是点对点？高手

vlisp2012 · 发表于 2013-11-5 08:10:52

没明白，咋个位置对应？

tanle2020 · 发表于 2013-11-7 22:43:04

vlisp2012 发表于 2013-11-5 08:10
没明白，咋个位置对应？

二维多段线连接时线跑很远，求高手修改。

wsjwsjwsj · 发表于 2013-11-8 21:50:17

tanle2020 发表于 2013-11-7 22:43
二维多段线连接时线跑很远，求高手修改。

可能是你的线方向不一致，修改线方向

水仙的错 · 发表于 2019-9-7 21:20:01

二维多段线对应顶点连线谁有吗？？？

999999 · 发表于 2020-8-21 00:43:34

谢谢楼主分享

yoyoho · 发表于 2020-8-21 12:40:50

谢谢楼主分享程序!!!!

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

[讨论] 三维多段线对应顶点连线问题！！！！！

相关帖子