Coordinate labels

[neilo]

I have a problem regarding our road cross section drawings. Everytime we plot a cross section, we will have to label each point using the ID command and then copying the exact coordinates (elevation and distance from the road centerline). this would be very time consuming and confusing. does anyone had a LISP routine that automatically label a point in a drawing with the current UCS as basis of the coordinate?

[Virago87]

got this from cadalyst years ago....may get you closer to what your looking for...

good luck

[neilo]

thompson21

thanks for the file that you sent. i still have one problem though. I have a japanese employer who always asks the length of the arc of the pier on its plan view. Usually, i used lines instead of polylines so i can get the exact arc length. is there a way to make a dimension for arc length?

i hope you can help me again with this matter.

thanks a lot

[kennet.sjoberg]

is there a way to make a dimension for arc length?

check the code in "circumferebtial dimension" earlier in this forum

: ) Happy Computing !

[neilo]

sir, i had tried the circumferential dimensioning but it only applies to circle and not for the arcs. can you please tell me how to convert that LISP for arcs length?


truly,

Nhel

[Mike.Perry]

Hi

Have a browse of the following thread -

Dimension an Arc

Have a good one, Mike

[kennet.sjoberg]

Ok try this :

(defun c:ArcDim ( / Ent EntDxf ArcLen AngRad Radie AngGo AngEnd )
  (if (setq Ent (entsel ) )
    (progn
      (setq EntDxf (entget (car Ent )) )
      (if (= "ARC" (cdr (assoc '0 EntDxf )) )
        (progn
          (setq Radie  (cdr (assoc '40 EntDxf )) )
          (setq AngGo  (cdr (assoc '50 EntDxf )) )
          (setq AngEnd (cdr (assoc '51 EntDxf )) )
          (if (< AngGo AngEnd )
            (setq AngRad (- AngEnd AngGo ) )
            (setq AngRad (+ (* 2 pi ) (- AngEnd AngGo )) )
          )
          (setq ArcLen (* Radie AngRad ) )
          (setq ArcLen (rtos ArcLen (getvar "LUNITS") (getvar "DIMDEC") ))
          (command "_dim" "angular" Ent "Text" ArcLen pause "" "exit" )
        )
        (princ "Object is not an arc !" )
      )
    )
    (princ "Miss, aim better !" )
  )
  (princ)
)

: ) Happy Computing !

kennet

[neilo]

thank you very much guys!

you are indeed of great help.....