Topic: Adding a Block at the begining of a line

[MSTG007]

I want to add a block when the user picks the first point for the elev. to come in. The Block name is SPOT and its just a "X". I keep messing w/ it and it blows up.

thank you for the help

Code: [Select]


(defun c:S2 ()
(setq Pt1 (getpoint"\nPick point for the elevation: ")
      Pt2 (getpoint Pt1 "nPick elevation label point: ")
)
(setq BkName (if (> (car Pt2) (car Pt1))  "SpotRight1" "SpotLeft1"))
(setq SpotElev (getreal "\nEnter Top Curb Elevation: ")
      SpotHIGH (+ 0.5 SpotElev)
      SpotElevTxt (rtos SpotElev 2 2)
      SpotHighTxt (rtos SpotHigh 2 2)
)
(command "line" pt1 pt2 "")
(command "-insert" BkName Pt2 TxtHt TxtHt 0 SpotElevTxt SpotHighTxt)
(princ)
)[/code]

[whdjr]

First of all you say the block name is "SPOT", but in your code you call it "SpotRight1" and "SpotLeft1".  The block name has to be consistent.

[whdjr]

Also you have too many inputs for the insert command.

[CAB]

Looks like you are trying to update the attributes during the Insert.
I don't think it can be done that way.
You mat have to set ATTREQ to 0 and update the attributes after the insert.

[Jeff_M]

It worked for me once I had 2 blocks defined with 2 attributes each and named SpotRight1 & SpotLeft1. I also had to change the insert portion to use a scale factor of 1 since the variable TxtHt  is not defined.

[whdjr]

You would cut down on your potential errors by localizing the variables:

Code: [Select]

(defun c:S2 (/ Pt1 Pt2 BkName SpotElev SpotHIGH SpotElevTxt SpotHighTxt )

[MSTG007]

I have the blocks worked out...

XXX.50______(X)<----  this is the piece i want
XXX.00

User picks the first point. a block (SPOT) (X) shows up... and then the rest of the command follows..

[Jeff_M]

Hmmm, you mean like this?

Code: [Select]


(setq Pt1 (getpoint"\nPick point for the elevation: "))
  (command "-insert" "spot" pt1 1.0 1.0 0.0)
  (setq Pt2 (getpoint Pt1 "\nPick elevation label point: "))

(setq BkName (if (> (car Pt2) (car Pt1))  "SpotRight1" "SpotLeft1"))


[MSTG007]

i get an error
Desktop/spot.lsp") ;
error: malformed list on input

Code: [Select]


(setq Pt1 (getpoint"\nPick point for spot elevation: ")
      (command "-insert" "spot" pt1 1.0 1.0 0.0)
      (Pt2 (getpoint Pt1 "nType elevation label point: "))

(setq BkName (if (> (car Pt2) (car Pt1))  "SpotRight" "SpotLeft"))
(setq SpotElev (getreal "\nType Spot elevation: ")
      SpotHigh (+ 0.5 SpotElev)
      SpotElevTxt (rtos SpotElev 2 2)
      SpotHighTxt (rtos SpotHigh 2 2)
)
(command "line" pt1 pt2 "")
(command "-insert" BkName Pt2 TxtHt TxtHt 0 SpotElevTxt SpotHighTxt)
(princ)
)

[Jeff_M]

Look carefully at the code I posted and the code you posted....specifically the (setq .... and the closing parenthesis........

[MSTG007]

now it just goes into the Enter Elevation...

Code: [Select]



(setq Pt1 (getpoint"\nPick point for elevation: "))
      (command "-insert" "spot" pt1 1.0 1.0 0.0)
      Pt2 (getpoint Pt1 "nPick elevation label point: "))

(setq BkName (if (> (car Pt2) (car Pt1))  "SpotRight" "SpotLeft"))
(setq SpotElev (getreal "\nEnter elevation: ")
      SpotHigh (+ 0.5 SpotElev)
      SpotElevTxt (rtos SpotElev 2 2)
      SpotHighTxt (rtos SpotHigh 2 2)
)
(command "line" pt1 pt2 "")
(command "-insert" BkName Pt2 TxtHt TxtHt 0 SpotElevTxt SpotHighTxt)
(princ)
)



[whdjr]

Add (setq in front of the first Pt2.

[MSTG007]

got it! understand! thank you!