[编程交流] 中心线坐标和

(defun c:test ()
 (setq sel (entsel "\nSelect Centerline Alignment: "))
 (if sel
   (progn
     (setq obj (vlax-ename->vla-object (car sel)))
     (setq sta (getreal "\nEnter Station Distance: "))
     (if sta
(progn
  (setq cl-pol (vlax-curve-getPointAtDist obj sta))
  (setq los (getreal "\nEnter Left Offset Distance: "))
  (setq ros (getreal "\nEnter Right Offset Distance: "))
  (if (and los ros)
    (progn
      (setq fd (vlax-curve-getFirstDeriv obj (vlax-curve-getparamAtPoint obj cl-pol)))
      (setq angR (- (angle '(0 0 0) fd) (* pi 0.5)))
      (setq angL (+ (angle '(0 0 0) fd) (* pi 0.5)))
      (setq pR (polar cl-pol angR ros))
      (setq pL (polar cl-pol angL los))
      (BTH:dro cl-pol 5)
      (BTH:drx pR 1)
      (BTH:drx pL 3)
      (grdraw cl-pol pL 3)
      (grdraw cl-pol pR 1)
      (princ "\n**********************************")
      (princ (strcat "\nCenterline Station: " (rtos sta 2 2)))
      (Princ (strcat "\nNorthing: " (rtos (cadr cl-pol) 2 2)
                     "  Easting: " (rtos (car cl-pol) 2 2)))
      (princ "\n**********************************")
      (princ (strcat "\nLeft Offset Distance: " (rtos los 2 2)))
      (princ (strcat "\nNorthing: " (rtos (cadr pL) 2 2)
                     "  Easting: " (rtos (car pL) 2 2)))
      (princ "\n**********************************")
      (princ (strcat "\nRight Offset Distance: " (rtos ros 2 2)))
      (princ (strcat "\nNorthing: " (rtos (cadr pR) 2 2)
                     "  Easting: " (rtos (car pR) 2 2)))
      (princ "\n**********************************")
      )
    )
  )
)
     )
   )
 (princ)
 )
(defun BTH:drx (ctr clr / COR1 COR2 COR3 COR4 VS XS XS2)
 (setq vs (getvar "viewsize"))
 (setq xs (/ vs 20))
 (setq xs2 (/ xs 2))
 (setq cor1 (polar ctr (* pi 0.25) xs2))
 (setq cor2 (polar ctr (* pi 0.75) xs2))
 (setq cor3 (polar ctr (* pi 1.25) xs2))
 (setq cor4 (polar ctr (* pi 1.75) xs2))
 (grdraw ctr cor1 clr 0)
 (grdraw ctr cor2 clr 0)
 (grdraw ctr cor3 clr 0)
 (grdraw ctr cor4 clr 0)
 )
(defun BTH:dro (ctr clr / COR0 COR1 COR10 COR11 COR12 COR13 COR14 COR15 COR16 COR17 COR18 COR19 COR2 COR3 COR4 COR5 COR6 COR7 COR8 COR9 VS XS XS4)
 (setq vs (getvar "viewsize"))
 (setq xs (/ vs 20))
 (setq xs4 (/ xs 4))
 (setq cor0 (polar ctr 0 xs4))
 (setq cor1 (polar ctr (* pi 0.1) xs4))
 (setq cor2 (polar ctr (* pi 0.2) xs4))
 (setq cor3 (polar ctr (* pi 0.3) xs4))
 (setq cor4 (polar ctr (* pi 0.4) xs4))
 (setq cor5 (polar ctr (* pi 0.5) xs4))
 (setq cor6 (polar ctr (* pi 0.6) xs4))
 (setq cor7 (polar ctr (* pi 0.7) xs4))
 (setq cor8 (polar ctr (* pi 0. xs4))
 (setq cor9 (polar ctr (* pi 0.9) xs4))
 (setq cor10 (polar ctr pi xs4))
 (setq cor11 (polar ctr (* pi 1.1) xs4))
 (setq cor12 (polar ctr (* pi 1.2) xs4))
 (setq cor13 (polar ctr (* pi 1.3) xs4))
 (setq cor14 (polar ctr (* pi 1.4) xs4))
 (setq cor15 (polar ctr (* pi 1.5) xs4))
 (setq cor16 (polar ctr (* pi 1.6) xs4))
 (setq cor17 (polar ctr (* pi 1.7) xs4))
 (setq cor18 (polar ctr (* pi 1. xs4))
 (setq cor19 (polar ctr (* pi 1.9) xs4))
 (grdraw cor0 cor1 clr 0)
 (grdraw cor1 cor2 clr 0)
 (grdraw cor2 cor3 clr 0)
 (grdraw cor3 cor4 clr 0)
 (grdraw cor4 cor5 clr 0)
 (grdraw cor5 cor6 clr 0)
 (grdraw cor6 cor7 clr 0)
 (grdraw cor7 cor8 clr 0)
 (grdraw cor8 cor9 clr 0)
 (grdraw cor9 cor10 clr 0)
 (grdraw cor10 cor11 clr 0)
 (grdraw cor11 cor12 clr 0)
 (grdraw cor12 cor13 clr 0)
 (grdraw cor13 cor14 clr 0)
 (grdraw cor14 cor15 clr 0)
 (grdraw cor15 cor16 clr 0)
 (grdraw cor16 cor17 clr 0)
 (grdraw cor17 cor18 clr 0)
 (grdraw cor18 cor19 clr 0)
 (grdraw cor19 cor0 clr 0)
 )

(vlax-curve-getFirstDeriv curve-obj  param)