如何找一般线段的各顶点（附图）

lxqun · 发表于 2004-1-18 19:47:00

我要根据如图竖线与折线的交点（该交点可以通过拾取得到其坐标）分别往左右两边找折线的各顶点坐标，怎么搞？请帮帮忙！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ccy012 · 发表于 2004-1-18 19:52:00

选中须查找的线段，输入“list“查看就行了

lxqun · 发表于 2004-1-18 20:50:00

要的是自动得出坐标啊，只要拾取那个交点后，就能得到左右两边的各个顶点，不用再在图上点了

meflying · 发表于 2004-1-19 08:46:00

你所谓的折线并不是折线，只是一些线段组成的。。。是否都这样？
还有，竖线是否都会在某个顶点上？

lxqun · 发表于 2004-1-19 09:11:00

对，就是这样。是一些线段的组成并且竖线肯定在某个顶点上。

meflying · 发表于 2004-1-19 09:35:00

copy


(defun c:GetPt( / ent pt1 pt2 ss i ptL1 ptL2 pts)
  (setq ent (car (entsel "选择竖线...")))
  (setq pt1 (cdr (assoc 10 (entget ent))))
  (setq pt2 (cdr (assoc 11 (entget ent))))
  (setq ss (ssget "f" (list pt1 pt2) '((0 . "line"))))
  (ssdel ent ss)
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq ptL1 (cdr (assoc 10 (entget ent))))
    (setq ptL2 (cdr (assoc 11 (entget ent))))
    (setq ptInter (inters pt1 pt2 ptL1 ptL2))
    (if (equal ptL1 ptInter 0.00001)
      (setq pts (append pts (list ptL2)))
      (setq pts (append pts (list ptL1)))
    )
    (setq i (1+ i))
  )
  pts
)

lxqun · 发表于 2004-1-19 12:41:00

为什么只找到两个点啊，左边一个，右边一个，都是离交点最近的那个点。我需要的是所有线段的顶点啊？

meflying · 发表于 2004-1-19 14:11:00

copy


(defun c:GetPt( / ss pt x i pt1 pt2 ptLs ptRs ent)
  (setq ss (ssget "x" '((0 . "line"))))
  (setq pt (cdr (assoc 10 (entget (car (entsel "选择竖线..."))))))
  (setq x (car pt))
  (setq i 0)
  (setq ptLs nil
        ptRs nil)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq pt1 (cdr (assoc 10 (entget ent))))
    
    (cond
      (( (car pt1) x) (if (not (member pt1 ptRs)) (setq ptRs (append ptRs (list pt1)))))
    )
    (setq pt2 (cdr (assoc 11 (entget ent))))
    (cond
      (( (car pt2) x) (if (not (member pt2 ptRs)) (setq ptRs (append ptRs (list pt2)))))
    )
    
    (setq i (1+ i))
  )
  (list ptLs ptRs)
)

lxqun · 发表于 2004-1-19 17:33:00

ok了，谢谢

无痕 · 发表于 2004-1-19 20:04:00

copy


;|pts=按分界点列左右直线点表并排序--------------------------------无痕.2004.1
测试:
Command: pts
选分界点:
-> (((10628.5 9484.92 0.0) (14627.4 13324.7 0.0) (16925.9 10523.5 0.0) (19602.4 12632.2 0.0))
    ((26214.7 9012.82 0.0) (27789.1 12474.9 0.0) (32354.8 9107.24 0.0) (37140.8 12065.7 0.0) (38085.5 10114.4 0.0)))
|;
[color=blue]
(defun c:pts ( / pt ss ssv ptlst1 ptlst2)
  (setq ptlst1 nil ptlst2 nil
        pt  (getpoint "\n选分界点:")
        ss  (ssget "x" '((0 . "LINE")))
        ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for obj ssv
        (foreach n (list (vlax-get obj 'startpoint) (vlax-get obj 'endpoint))
           (cond  ((and ( (car n) (car pt))(not (member n ptlst2))) (setq ptlst2 (cons n ptlst2)))
           )
  )   )
  (list (vl-sort ptlst1 (setq sortlst '(lambda (x y) (< (car x)(car y))))) (vl-sort ptlst2 sortlst))
)[/color]

如何找一般线段的各顶点（附图）

发表回复

精选推荐