TEXT IS OUTSIDE OF LINE FOR UCS CHANGE

[MUTHUKUMAR1983]

 

 

(DEFUN C:FLR()

  (SETQ
    P1(GETPOINT "\n PICK FIELD LINE START POINT :")

    P2(GETPOINT P1 "\n PICK FIELD LINE END POINT :")

    P3(GETPOINT P1 "\n PICK RIGHT SIDE  :")

    AN1(ANGLE P1 P2)
    
    )
  (COMMAND "UCS" "3" P1 P2 P3 "")

  (REPEAT 100

    (SETQ
      
    GS(GETSTRING "\n FIELD LINE NUMBER :")
    
    YV(GETREAL "\n ENTER LINE LENGTH VALUE:") ;-15

    XV(GETREAL "\n ENTER OFFSET VALUE:") ;56.8

    ; FV(*(- YV)1)

    ;P2(POLAR P1 0 FV)
    )

  (COMMAND "POINT"  (LIST XV YV) )

  ;(TRANS '(0.0 0.0 1.0) 0 1  T)

  (ENTMAKE (LIST (CONS 0 "TEXT")
                   (CONS 100 "AcDbEntity")
                   (CONS 100 "AcDbText")
                   (CONS 10 (LIST XV YV)) ; POINT
                   (CONS 40 8)
                   (CONS 7 (GETVAR 'textstyle))
                   (CONS 8 "Some layer")
                   (CONS 62 1)
                   (CONS 1 GS) ;VALUE
                   (CONS 50 0 )
		 ))
)
 ;(PRINT FV)
  )

 

Edited May 14, 2023 by MUTHUKUMAR1983
VIDEO PROBLEM

[Steven P]

I don't have CAD running today, but a couple of thoughts, 

For UCS - do you need it changed to this after the LISP ends? you might want to look at resetting it to what it was before. OR don't change the UCS and work out the points using polar coordinates from the UCS you had before and the line angle.

 

You could probably get rid off P3 if you do that and let the user define the direction of right by the order they click on the lines

[MUTHUKUMAR1983]

30 minutes ago, MUTHUKUMAR1983 said:

 

 

 

(DEFUN C:FLR()

  (SETQ
    P1(GETPOINT "\n PICK FIELD LINE START POINT :")

    P2(GETPOINT P1 "\n PICK FIELD LINE END POINT :")

    P3(GETPOINT P1 "\n PICK RIGHT SIDE  :")

    AN1(ANGLE P1 P2)
    
    )
  (COMMAND "UCS" "3" P1 P2 P3 "")

  (REPEAT 100

    (SETQ
      
    GS(GETSTRING "\n FIELD LINE NUMBER :")
    
    YV(GETREAL "\n ENTER LINE LENGTH VALUE:") ;-15

    XV(GETREAL "\n ENTER OFFSET VALUE:") ;56.8

    ; FV(*(- YV)1)

    ;P2(POLAR P1 0 FV)
    )

  (COMMAND "POINT"  (LIST XV YV) )

  ;(TRANS '(0.0 0.0 1.0) 0 1  T)

  (ENTMAKE (LIST (CONS 0 "TEXT")
                   (CONS 100 "AcDbEntity")
                   (CONS 100 "AcDbText")
                   (CONS 10 (LIST XV YV)) ; POINT
                   (CONS 40 8)
                   (CONS 7 (GETVAR 'textstyle))
                   (CONS 8 "Some layer")
                   (CONS 62 1)
                   (CONS 1 GS) ;VALUE
                   (CONS 50 0 )
		 ))
)
 ;(PRINT FV)
  )

 

 

 

[Tsuky]

(entmake) have required alway coordinates in WCS

also

(CONS 10 (LIST XV YV)) ; POINT

is no good

(CONS 10 (trans (LIST XV YV) 1 0)) ; POINT

must be used

[MUTHUKUMAR1983]

ITS WORK FINE THANKS 1000 TIME Tsuky