求在已有多义线上接着画的代码

清风明月10 · 发表于 2013-9-20 23:46:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由清风明月10 于 2013-9-21 00:19 编辑

请问，我已经画了一条直线型的多义线，但中途中断了，如何接着画呢？也就是说接着画是同一条线，而不是两条多义线

这是网上得到的多段线增加顶点的代码，我想改成增加的顶点总是紧接着多段线的最后一个点，不知道如何改法？

(defun C:TT (/ EN OBJ PT PP)
  (if (and (setq EN (entsel "\n选择多选线: "))
         (setq EN (car EN))
         (sssetfirst nil (ssadd EN))
         (setq OBJ (vlax-ename->vla-object EN))
         (or (= (vla-get-objectname OBJ) "AcDbPolyline")
            (and (princ "\n所选的对象不是多段线。") nil)
         )
   )
(while (setq PT (getpoint "\n指定新顶点: "))
   (setq PT (trans PT 1 0)
         PP (vlax-curve-getclosestpointto OBJ PT))
   (vlax-invoke
      OBJ
      'ADDVERTEX
      (1+ (fix (vlax-curve-getparamatpoint OBJ PP)))
      (list (car PT) (cadr PT))
   )
)
  )
  (sssetfirst)
  (princ)
)

Free-Lancer · 发表于 2013-9-21 10:08:03

本帖最后由 Free-Lancer 于 2013-9-21 10:26 编辑

再写个 Vlisp 留个记号，还可以增加 Undo 选项
在末尾增加顶点时要先将末尾点移动到新增加的点，然后“增加”的点 Index 是原 pline 的 endparam

(defun c:tt (/ ss e obj p ep)
(if (setq ss (ssget ":s" '((0 . "LWPOLYLINE"))))
(progn
(setq e (ssname ss 0)
obj (vlax-ename->vla-object e)
)
(while (setq p (getpoint (vlax-curve-getendpoint e) "\nNext Point: "))
(setq p (trans p e 1)
ep (vla-get-coordinate obj (fix (vlax-curve-getendparam e)))
)
(vla-put-coordinate
obj
(fix (vlax-curve-getendparam e))
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray vlax-vbdouble '(0 . 1))
(list (car p) (cadr p))
)
)
)
(vla-addvertex
obj
(fix (vlax-curve-getendparam e))
ep
);_ (vlax-invoke obj 'AddVertex (fix (vlax-curve-getendparam e)) (list (car p) (cadr p)))
)
)
)
(princ)
)

--@----- · 发表于 2013-9-21 00:18:03

两个多段线倒角下不就是一条了吗

清风明月10 · 发表于 2013-9-21 00:20:33

本帖最后由清风明月10 于 2013-9-21 00:25 编辑

那不行，主要问题在于会增加一个端点。再者也不自然，画第二条线（上百个点）后，还要回来倒一次角，很费精力

q3_2006 · 发表于 2013-9-21 07:58:30

我是新手，但感觉这样不太可能，建意用院长的函数，将完成后的多段线自动连接成整体。

(defun c:tt()
(setq ss (xyp-CurveJoin (entlast) 0.1))
(setq en (xyp-PeditJoin ss 0.1))
)
;;(xyp-CurveJoin (entlast) 0.1)可改成(xyp-CurveJoin (car(entsel)) 0.1)

q3_2006 · 发表于 2013-9-21 07:59:39

同样，也希望API增加:首尾曲线选择集函数，很好用，也很常用！

清风明月10 · 发表于 2013-9-21 08:08:40

q3_2006
我是新手，但感觉这样不太可能，

我发的代码经修改肯定可以做到，只是要查VLAX的含义

清风明月10 · 发表于 2013-9-21 08:09:38

q3_2006 发表于 2013-9-21 07:58
我是新手，但感觉这样不太可能，建意用院长的函数，将完成后的多段线自动连接成整体。

我发的代码经修改肯定可以做到，只是要想法查VLAX的含义

q3_2006 · 发表于 2013-9-21 08:17:35

本帖最后由 q3_2006 于 2013-9-21 08:26 编辑

清风明月10 发表于 2013-9-21 08:09
我发的代码经修改肯定可以做到，只是要想法查VLAX的含义

vlax-curve-getClosestPointTo 返回曲线上离指定点最近的点（在 WCS 上）
语法：(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])
参数：

curve-obj

要测量的 VLA 对象。

givenPnt

点（在 WCS 上），寻找曲线上距该点最近的点。

extend

如果指定该参数且其值不为 nil，vlax-curve-getClosestPointTo 在搜索最近点时扩展曲线。

返回值：

如果成功则返回表示曲线上一点的三维点表，否则返回 nil。

vlax-curve-getParamAtPoint 返回曲线在指定点的参数

语法：
(vlax-curve-getParamAtPoint curve-obj point)

清风明月10 · 发表于 2013-9-21 08:22:47

我在注释这段代码，看注释后如何修改。也请大家帮改一下

清风明月10 · 发表于 2013-9-21 08:36:18

关键下面一句不懂，且“ADDVERTEX”无法查得其含义

(vlax-invoke
      OBJ
      'ADDVERTEX
      (1+ (fix (vlax-curve-getparamatpoint OBJ PP)))
      (list (car PT) (cadr PT))
   )

清风明月10 · 发表于 2013-9-21 09:18:41

就这样将就解决了这个问题
(defun C:紧接着直线型轻多义线A的后面画A (/ ent PLTYPE obj vtx vtxlst n ptlst)
(vl-load-com)
(setq ent (entsel "\n选取多线:\n"))
(if ent
      (progn
      (setq PLTYPE (cdr (assoc 0 (entget (car ent)))))
      (if (or (= "POLYLINE" PLTYPE) (= "LWPOLYLINE" PLTYPE))
            (progn
               (setq obj (vlax-ename->vla-object (car ent)))
               (setq vtx (vla-get-Coordinates obj))
               (setq vtxlst (vlax-safearray->list (vlax-variant-value vtx)))
               (setq n 0)
               (setq ptlst nil)

            (repeat (/ (length vtxlst) 2)
                     (setq ptlst (append ptlst (list (list (nth n vtxlst) (nth (1+ n) vtxlst)))))
                     (setq n (+ n 2))
               )
               (if ptlst
(PROGN
(command "erase" ent "")
  (command "_PLINE")
  (mapcar 'command ptlst)
(command PAUSE)

  )

               nil)
         )
         (prompt "\n选取实体不是多义线!")
      );if
   )
   );if
  )

清风明月10 · 发表于 2013-9-21 09:23:19

我将就型地解决了，解决的代码见上帖。如果能在1楼的代码基础上解决，更好

Free-Lancer · 发表于 2013-9-21 09:42:41

本帖最后由 Free-Lancer 于 2013-9-21 10:23 编辑

清风明月10 发表于 2013-9-21 09:23
我将就型地解决了，解决的代码见上帖。如果能在1楼的代码基础上解决，更好

适用 XDAPI

(defun c:tt (/ e endpam ep p)
(if (setq e (car (xdrx_entsel "\nPick Pline: ")))
(while (setq p
(getpoint (vlax-curve-getendpoint e) "\nNext Point: ")
)
(setq ep (vlax-curve-getendpoint e)
endpam (fix (vlax-curve-getendparam e))
)
(xdrx_polyline_setpointat e endpam p)
(xdrx_polyline_addvertexat e endpam ep)
)
)
(princ)
)

newer · 发表于 2013-9-21 14:34:01

q3_2006 发表于 2013-9-21 07:59
同样，也希望API增加:首尾曲线选择集函数，很好用，也很常用！

函数库已经有了，XD::Pickset:L2PL

http://www.xdcad.net/forum/forum ... read&tid=669548

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

[求助] 求在已有多义线上接着画的代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

点评