Centerline lisp

[Mac Demer]

Looking for a lisp that will draw a center line after selecting 2 points and places the CL symbol using Romans font.

[Tom Beauford]

What about a linetype?

 *CL,---- CL ---- - ---- CL ---- - ---- CL ---- 
A,6.6,-.06,["C",STANDARD,S=.1,R=0.0,X=-0.04,Y=-0.025],-.01,["L",STANDARD,S=.1,R=0.0,X=-0.01,Y=-.065],-.07,6.6,-.05,.07,-.05

[BlackBox]

I interpreted the OP very differently... Perhaps the OP can post a picture of specifically what is being requested?

[ccowgill]

I interpreted select 2 points to get proper rotation, and place a centerline symbol adjacent to the line. I'll await further pictorial information.

[fixo]

Sorry friends I know nothing about labeling lines
maybe it will be the answer

(defun C:test(/ ang mp p1 p2)
; Convert value in radians to degrees
(defun rtd (a)
  (* 180.0 (/ a pi))
)
  
(if (and (setq p1 (getpoint "\nStart point: "))
	 (setq p2 (getpoint p1 "\nEnd point: ")))
  (progn
    ;; align text
(setq ang (angle p1 p2)
	  ang
	      (cond ((< (/ pi 2) ang (* pi 1.5)) (+ pi ang))
		    (T ang)
	      )
      ang (rtd ang)
    )
(setq mp (mapcar '(lambda(a b) (/ (+ a b) 2.0)) p1 p2))
(command "._line" "_non" p1 "_non" p2 "")
(command "._chprop"  "L" "" "LT" "Center" "")));<-- cnange linetype here 
(command "._mtext" "_non" mp "_J" "_MC"  "R" (rtos ang) "_W" "0" "\\U+2104" "")
(command "._chprop"  "L" "" "Color" "1" "" );<-- cnange color here or remove this line
  (princ)
  )

~'J'~

[steveo]

Sorry friends I know nothing about labeling lines
maybe it will be the answer

(defun C:test(/ ang mp p1 p2)
; Convert value in radians to degrees
(defun rtd (a)
  (* 180.0 (/ a pi))
)
  
(if (and (setq p1 (getpoint "\nStart point: "))
	 (setq p2 (getpoint p1 "\nEnd point: ")))
  (progn
    ;; align text
(setq ang (angle p1 p2)
	  ang
	      (cond ((< (/ pi 2) ang (* pi 1.5)) (+ pi ang))
		    (T ang)
	      )
      ang (rtd ang)
    )
(setq mp (mapcar '(lambda(a b) (/ (+ a b) 2.0)) p1 p2))
(command "._line" "_non" p1 "_non" p2 "")
(command "._chprop"  "L" "" "LT" "Center" "" "")));<-- cnange linetype here 
(command "._mtext" "_non" mp "_J" "_MC"  "R" (rtos ang) "_W" "0" "\\U+2104" "")
(command "._chprop"  "L" "" "Color" "1" "" "");<-- cnange color here or remove this line
  (princ)
  )

~'J'~

Hey Fixo ! ! I like it !! nice work !!
Steve

[fixo]

You're quite welcome, Steve
I removed double quotes in the code above
Cheers

~'J'~

[Mac Demer]

ccowgill has the interpretation correct,
now that I think about it, after selecting each point it would be nice to be able to extend the line type if desired. I could make a dynamic block, but it seems a lisp would be more efficient. her is a dwg with the center line and notation.

regards

[Mac Demer]

Gave this a test drive, very nice!
how can I get the text to be at the end of the line and text rotation always same as line?

[fixo]

will be back in tomorrow only