根据z值连接多段线的代码

杜流浪人 · 发表于 2014-9-14 11:04:06

st788796 发表于 2014-9-13 16:09
取得顶点表 (xdrx_getproperty e "Vertices")
制造 (apply 'xdrx_polyline_make pts)
注意首尾点连接 ...

老师你好，我现在利用你的那段代码完成了各条线的连接及连接成为各个一体，也完成了拟合，但是拟合有点bug，可是利用jion连接拟合后各个线的z值归0了，这个不是我想要的

杜流浪人 · 发表于 2014-9-14 11:06:06

st788796 发表于 2014-9-12 17:29

我在一楼的那段代码连接后拟合 z值是不变的，线的属性也在，线的图层也不变。利用你这个批量连接拟合后线的属性不在了，z值归0，各条线都跑到0图层上了

XDSoft · 发表于 2014-9-14 11:06:56

杜流浪人发表于 2014-9-14 11:04
老师你好，我现在利用你的那段代码完成了各条线的连接及连接成为各个一体，也完成了拟合，但是拟合有点 ...

你要把它转为3D POLYLINE

st788796 · 发表于 2014-9-14 12:04:16

杜流浪人发表于 2014-9-14 11:06
我在一楼的那段代码连接后拟合 z值是不变的，线的属性也在，线的图层也不变。利用你这个批量连接拟 ...

传个样图上来

st788796 · 发表于 2014-9-14 15:14:46

2015 + 20140913版 API 测试 Elevation 及图层均不会丢失，保持原属性

杜流浪人 · 发表于 2014-9-14 16:00:18

st788796 发表于 2014-9-14 15:14
2015 + 20140913版 API 测试 Elevation 及图层均不会丢失，保持原属性

我用的是 2004和2006的主要这样做事为了批量连接等高线，元老我也看过你一个帖子是批量连接间隙等高线可是使用未成功那个帖子里好几段代码都不成功

XDSoft · 发表于 2014-9-14 16:10:25

杜流浪人发表于 2014-9-14 16:00
我用的是 2004和2006的主要这样做事为了批量连接等高线，元老我也看过你一个帖子是批量连接间隙 ...

API 只要加载了，所有版本下的表现是一样的。

杜流浪人 · 发表于 2014-9-14 16:49:54

XDSoft 发表于 2014-9-14 16:10
API 只要加载了，所有版本下的表现是一样的。

加载了可能是源代码哪里是不是有点问题

杜流浪人 · 发表于 2014-9-14 17:22:10

st788796 发表于 2014-9-13 16:09
取得顶点表 (xdrx_getproperty e "Vertices")
制造 (apply 'xdrx_polyline_make pts)
注意首尾点连接 ...

;;连接等高线后再点击连接后的等高线即可拟合
(Defun C:plj (/ ss1 ss2 Pt1 Pt2 p1 p2 p11 p22 pa pb)
(vl-load-com)
  (Setvar "Cmdecho" 0)
(Setq Pt1 (Getvar "Vsmin"))
(Setq Pt2 (Getvar "Vsmax"))
(Setq Ss1 (Entsel "\n 选择1线:"))
(Setq Ss2 (Entsel "\n 选择2线:"))
   (setq p1 (vlax-curve-getendpoint (car ss1))
   p2 (vlax-curve-getstartpoint (car ss2))
   p11 (vlax-curve-getstartpoint (car ss1))
   p22 (vlax-curve-getendpoint (car ss2))
   )
(setq Z1(car(assoc 38 (entget (car ss1)))))
(setq Z2(car(assoc 38 (entget (car ss2)))))
(if (= z1 z2)
(setq pa (n-pt p1 list(p2 p22))
pb (n-pt p2 list(p1 p11))
   )
(progn
(Vl-Cmdf "line" pa pb "")
(Vl-Cmdf ".Pedit" Ss1 "Yes" "J" "C" Pt1 Pt2 "" "" )
(Vl-Cmdf pause)
(Vl-Cmdf ".Pedit" Ss1 "Yes" "s" Pt1 Pt2 "" "")
)
)
(Setvar "Cmdecho" 1)
(Princ)
)
;;; 返回点表中距离点最近的点
(defun n-pt (plt pt / m mpt neap)
  (if (/= plt nil)
(progn
   (setq neap (car plt))
   (setq md (distance neap pt))
   (setq m 0)
   (repeat (length plt)
      (setq mpt (nth m plt))
      (setq dist (distance mpt pt))
      (if (> md dist)
      (setq neap mpt
            md dist
      )
      )
      (setq m (1+ m))
   )
)
  )
  neap
)
这段代码哪里有问题  请老师看看

st788796 · 发表于 2014-9-14 18:06:49

杜流浪人发表于 2014-9-14 17:22
;;连接等高线后再点击连接后的等高线即可拟合
(Defun C:plj (/ ss1 ss2 Pt1 Pt2 p1 p2 p11 p22 pa pb)
...

问题很多

(Defun C:plj (/ ss1 ss2 p1 p2)
(vl-load-com)
(Setvar "Cmdecho" 0)
(while (and (Setq Ss1 (Entsel "\n 选择1线:"))
(Setq Ss2 (Entsel "\n 选择2线:"))
(setq p1 (vlax-curve-getpointatparam
(car ss1)
(fix (+ (vlax-curve-getparamatpoint
(car ss1)
(apply 'vlax-curve-getclosestpointto ss1)
)
0.5
)
)
) ;_拾取点附近的端点
p2 (vlax-curve-getpointatparam
(car ss2)
(fix (+ (vlax-curve-getparamatpoint
(car ss2)
(apply 'vlax-curve-getclosestpointto ss2)
)
0.5
)
)
) ;_拾取点附近的端点
)
(equal (caddr p1) (caddr p2) 1e-5) ;_ z
)
(progn
(vl-cmdf ".pline" "_non" p1 "_non" p2 "")
(vl-cmdf ".pedit" ss1 "j" "L" ss2 "" "")
(vl-cmdf ".pedit" ss1 "f" "" )
)
)
(Setvar "Cmdecho" 1)
(Princ)
)

(Defun C:plj (/ ss1 ss2 p1 p2) 
  (vl-load-com) 
  (Setvar "Cmdecho" 0) 
  (while (and (Setq Ss1 (Entsel "\n 选择1线:")) 
           (Setq Ss2 (Entsel "\n 选择2线:")) 
           (setq p1 (vlax-curve-getpointatparam 
                      (car ss1) 
                      (fix (+ (vlax-curve-getparamatpoint 
                                (car ss1) 
                                (apply 'vlax-curve-getclosestpointto ss1) 
                              ) 
                              0.5 
                           ) 
                      ) 
                    ) ;_拾取点附近的端点 
                 p2 (vlax-curve-getpointatparam 
                      (car ss2) 
                      (fix (+ (vlax-curve-getparamatpoint 
                                (car ss2) 
                                (apply 'vlax-curve-getclosestpointto ss2) 
                              ) 
                              0.5 
                           ) 
                      ) 
                    ) ;_拾取点附近的端点 
           ) 
           (equal (caddr p1) (caddr p2) 1e-5) ;_ z 
      ) 
    (progn 
      (vl-cmdf ".pline" "_non" p1 "_non" p2 "") 
      (vl-cmdf ".pedit" ss1 "j" "L" ss2 "" "") 
      (vl-cmdf ".pedit" ss1 "f" "" ) 
    ) 
  ) 
  (Setvar "Cmdecho" 1) 
  (Princ) 
)

杜流浪人 · 发表于 2014-9-15 13:15:55

st788796 发表于 2014-9-14 18:06
问题很多

谢谢老师指导我再去实验你的代码祝福老师

czx663 · 发表于 2014-9-16 09:39:40

st788796 发表于 2014-9-12 17:29

应该加点标注。数括号数得累死人{:soso_e100:}

csharp · 发表于 2014-9-16 10:43:19

czx663 发表于 2014-9-16 09:39
应该加点标注。数括号数得累死人

编辑器有格式化功能

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

[求助] 根据z值连接多段线的代码

点评

点评

点评

点评

点评

点评