[求助]怎样获得多段线中某段的斜率

54256

我现在的程序是选择一条直线,从而获得直线的端点,求出斜率,根据这个斜率在线上插入块.

现在想把这个在多段线上也可以用,其实就是只要知道我点下去的那点所在直线的两个端点就可以了,

那怎么获得多段线的端点列表呢

谢谢大家,我知道这里高手很多,希望赐教

sharknj

论坛上有“获得拾取点临近的端点”的程序，我抄了一份。给个链接：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73495

不敢乱贴。以下是我自己的，献丑。;输入图元名称，获得多义线的分段线段的端点和角度;输出一个表palist

(defun entptanglist( ename / entptlist i entlist n entpt entptlist listlen ptang)
  (setq entptlist '()
 i 0
 entlist (entget ename)
 n (length entlist)
 )
  (while (< i n)
    (if (= 10 (car(nth i entlist )))
      (progn
      (setq entpt (list(list (cadr(nth i entlist)) (caddr(nth i entlist )))))
 (setq entptlist (append  entpt entptlist))
      )
      )
    (setq i (+ i 1))
    )
 
(setq listlen  (- (length entptlist) 1)
      palist '()
      i 0)
(while (< i listlen)
  (setq ptang (list(angle(nth i entptlist) (nth (+ i 1) entptlist))))
  (setq pal (list(list (nth i entptlist) (nth (+ i 1) entptlist) ptang)))
 (setq palist (append palist pal ))
 
 (setq i (+ i 1))         
  )
(princ palist)
)

Andyhon

换个思路如何?

(setq ee (entsel)
      pt (cadr ee)
     ppt (apply 'vlax-curve-getClosestPointTo ee)  ; 垂足
      sl (angle pt ppt)
)

sharknj

楼上高人，谢谢提供新思路。