如何提取多义线中某一线段的长度?

liuqian020

再不分解多义线的情况下,如何提取多义线中某一线段的长度?

rjljh

是啊，我也需要这样的程序，能提取其中自己所需分段的长度，不知各位老师有没有编出来。

其他论坛上看到有类似的，但不完善，不好操作。

 

 

xyp1964

功能：标注坡度坡长

命令：PDPC

rjljh

谢谢版主的积极回应。

但你提供的程序只能捕捉两夹点之间的长度，而我需要的线段它包括许多的夹点，其中还有圆弧。我在实际操作中是先用线条与多段线相交标记成若干需要的线段，再交点打断，查看属性获得每分隔段的长度。不用说，这是最笨的方法，费时费力，容易出错，

所以我希望的程序是直接选取多段线和相交直线，然后批量得到各分段之间的长度，或者通过拾取两交点获得长度，最后的数据可以标注在线段旁或通过文本输出。

嘿嘿，是不是要求太多了，见谅！

xiaomihu

(defun c:qxdist ( ss p1 p2 dist1 dist2/ SS EN ENOBJ OSM )
  (vl-load-com)

(setq p1 (getpoint))

(setq p2 (getpoint))
  (setq ss (ssget))
  (command "pedit" "M" ss "" "" "j" "0" "")
  (setq en (ssname (ssget p1) 0))
  (setq enobj (vlax-ename->vla-object en))
  (setq dist1 (vlax-curve-getDistAtPoint enobj p1))
  (setq dist2 (vlax-curve-getDistAtPoint enobj p2))

(setq d (- dist1 dist2))
  )

tlstar

我试了一下：; 错误: 参数名称重复: SS

请您改一下好吗

yshf

;1. 将下载的“ddxwzh.fas”存入h盘目录下，如存入
;   其它地址，则修改程序中“(load "h:ddxwzh.fas")”
;   使之相符。
;2. 使用以下示例程序，即可完成所要测量的分段长度。

(defun c:cc()
   (if (null ddxwzh)(load "h:ddxwzh"))
   (setq xtblm '("cmdecho" "osmode")
  xtblz (mapcar 'getvar xtblm)
   )
   (mapcar 'setvar xtblm '(0 0))
   (setq en (car (entsel "\nPline:")))
   (while (progn (setvar "osmode" 512 )(setq pt (getpoint "\npt:")))
      (setq fhz (ddxwzh en pt) )
      (princ "\nfhz=")(princ fhz)
   )
   (mapcar 'setvar xtblm xtblz)(princ)
 )

yshf

;1. 将下载的“ddxwzh.fas”存入h盘目录下，如存入
;   其它地址，则修改程序中“(load "h:ddxwzh.fas")”
;   使之相符。
;2. 使用以下示例程序，即可完成所要测量的分段长度。

(defun c:cc()
   (if (null ddxwzh)(load "h:ddxwzh"))
   (setq xtblm '("cmdecho" "osmode")
  xtblz (mapcar 'getvar xtblm)
   )
   (mapcar 'setvar xtblm '(0 0))
   (setq en (car (entsel "\nPline:")))
   (while (progn (setvar "osmode" 512 )(setq pt (getpoint "\npt:")))
      (setq fhz (ddxwzh en pt) )
      (princ "\nfhz=")(princ fhz)
   )
   (mapcar 'setvar xtblm xtblz)(princ)
 )

meflying

讨厌这么麻烦的：

2. (defun c:test(/ ent pt ss)
3.   (vl-load-com)
4.   (setvar "cmdecho" 0)
5.   (setq ent (entsel "选择多义线..."))
6.   (setq pt (cadr ent)
7. ent (car ent))
8.   (command "_.undo" "be")
9.   (command "_.explode" ent)
10.   (setq ent (ssget pt '((0 . "LINE"))))
11.   (prompt "\n选择段的长度为:")
12.   (princ (vla-get-length (vlax-ename->vla-object (ssname ent 0))))
13.   (command "_.undo" "e")
14.   (command "_.u")
15.   (princ)  
16. )

(defun c:test(/ ent pt ss)   (vl-load-com)   (setvar "cmdecho" 0)   (setq ent (entsel "选择多义线..."))   (setq pt (cadr ent) ent (car ent))   (command "_.undo" "be")   (command "_.explode" ent)   (setq ent (ssget pt '((0 . "LINE"))))   (prompt "\n选择段的长度为:")   (princ (vla-get-length (vlax-ename->vla-object (ssname ent 0))))   (command "_.undo" "e")   (command "_.u")   (princ)   )

rjljh

yshf 的程序能不能增加捕捉选项，交点、端点，只有最近点捕捉测量不准确

其他两各程序好像都不能用。