[求助]：麻烦编写如下LISP ,急!

jerry_bj

最好用LISP编写 能用于R14和2002
点击显示坡度和颇长 如图  只要显示在 命令行就可以 谢谢

xyp1964

坡度带正负是什么意思？

jerry_bj

向上 为正坡 下坡为负坡 麻烦帮忙编写一个 LISP 谢谢

梦断江南

坡度是用哪个来求的?

xyp1964

[php]试试吧！没考虑水平线。
“向上 为正坡 下坡为负坡”，上下、正负如何确定？
;坡度坡长
(defun c:pdpc(/ s1 dist pd)
  (setq s1(entsel"\n\t选择LINE实体 : "))
  (if (= (ddxf 0 s1) "LINE")
    (progn
      (setq dist (abs (distance (ddxf 10 s1)(ddxf 11 s1)))
            pd (/ (- (cadr(ddxf 10 s1))(cadr(ddxf 11 s1)))
                  (- (car(ddxf 10 s1))(car(ddxf 11 s1)))
                  )                  
            )
      (princ "\n\t坡长 = ")(princ dist)
      (princ "\n\t坡度 = 1:")(princ (abs ( / 1 pd)))(princ)     
      )
    (princ"\n\t无效，不是LINE实体!")
    )
  (princ)
  )
(defun dxf (code elist) (cdr (assoc code elist)))
(defun ddxf (code elist) (dxf code (entget (car elist))))
[/php]

jerry_bj

坡度就是 (Y2-Y1)/(X2-X1)
谢谢 XYP 如果是PLINE呢?

梦断江南

晕啊.你的y2 y1,x2 x1又是什么?
线段的起点终点坐标的x y么?

jerry_bj

是啊  就是坐标啊

xyp1964

[php]
;改进后只能识别单独的pline线（两个顶点）：
;坡度坡长程序
(defun c:pdpc (/ s1 dist pd)
  (setq s1 (entsel "\n\t选择LINE或POLYLINE实体 : "))
  (setq st (ddxf 0 s1))

  (if (= st "LINE")
    (progn
      (setq dist (abs (distance (ddxf 10 s1) (ddxf 11 s1)))
            pd         (/ (- (cadr (ddxf 10 s1)) (cadr (ddxf 11 s1)))
                    (- (car (ddxf 10 s1)) (car (ddxf 11 s1)))
                 )
      )
      (princ "\n\t坡长 = ")
      (princ dist)
      (princ "\n\t坡度 = 1:")
      (princ (abs (/ 1 pd)))
      (princ)
    )
  )
  (if (or (= st "POLYLINE")(= st "LWPLINE"))
    (progn
      (endpt (car s1))

      (setq dist (abs (distance pts pte))
            pd         (/ (- (cadr pts) (cadr pte))
                    (- (car pts) (car pte))
                 )
      )
      (princ "\n\t坡长 = ")
      (princ dist)
      (princ "\n\t坡度 = 1:")
      (princ (abs (/ 1 pd)))
      (princ)
    )
  )
  (if (and (/= st "LINE") (/= st "POLYLINE")(/= st "LWPLINE"))
    (princ "\n\t无效选择，不是LINE、POLYLINE实体!")
  )
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))
(defun ddxf (code elist) (dxf code (entget (car elist))))
;|取得曲线的起点，终点。 --陌生人.2004 支持arc,spline,pline,lwpline,el,line.|;
(defun endpt (e)
  (setq        eobj (vlax-ename->vla-object e)
        pts  (vlax-curve-getstartpoint eobj)
        pte  (vlax-curve-getendpoint eobj)
  )
  (cons pts (list pte))
)[/php]

jerry_bj

多谢多写 能修改成识别 多个顶点的PLINE 或 直线吗?

xyp1964

1. 直线肯定没有问题，因为没有多个顶点的直线！
2. 多个顶点的PLINE 会自动找到起点与终点，可以算出起点与终点连线的坡度和坡长。

梦断江南

闹了半天,你这是断面啊
我一开始老看成是平面

jerry_bj

[QUOTE]最初由 xyp1964 发布
[B]1. 直线肯定没有问题，因为没有多个顶点的直线！
2. 多个顶点的PLINE 会自动找到起点与终点，可以算出起点与终点连线的坡度和坡长。 [/B][/QUOTE

不是 直线也可以连续的啊 但不是整体而已
PLINE 是要求显示被点击的段的起终点的坡度和长度 不是整段起终点的]

xyp1964

直线只有起点与终点。
“PLINE 是要求显示被点击的段的起终点的坡度和长度 不是整段起终点的”的要求有点难！
再动动脑子！

aeo

最初由 xyp1964 发布
[B]直线只有起点与终点。
“PLINE 是要求显示被点击的段的起终点的坡度和长度 不是整段起终点的”的要求有点难！
再动动脑子！ [/B]

是pl线，炸开，nentselp选到变成的直线,提取信息，再undo.