怎么让垂线都是自动在多段线外侧

j15tty

【活跃】黔-采矿 2014/9/25 15:13:43

(defun C:t11 ()
  (vl-load-com)
  (setq cur (car (entsel)))
  (setq
    lb (mapcar
         'cdr
         (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget cur))
       )
  )
  (setq n 0)
  (while (<= n (length lb))
    (setq p1 (car (nth n lb)))
    (setq p2 (cadr (nth n lb)))
    (setq p (list  p1  p2  0.0))
    (setq obj (vlax-ename->vla-object cur))
    (setq tan (vlax-curve-getFirstDeriv
                obj
                (vlax-Curve-GetParamatDist
                  obj
                  (vlax-curve-getDistAtPoint obj p)
                )
              )
    )
    (setq pe (polar p (+ (/ pi 2) (atan (/ (cadr tan) (car tan)))) 10))
    (vl-cmdf "line" p pe "")
    (setq n (+ n 1))
  )
)

这个程序的作用是多段线各节点处做垂线
但是我不能控制垂线的方向这个是程序运行结果，我怎么让垂线方向都是在多段线外部



[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\1127116574\QQ\WinTemp\RichOle\O%H)T6PQB9O1KX5ATON$Z@M.jpg[/img]