Block Insert, Center and Auto

jfklimek · 发表于 2022-7-6 07:17:39

I'm having trouble finishing this LISP. Can anyone help me out. The command line is telling me the command I'm entering 'roomtag' is unknown. It's probably something little but I can't seem to figure it out. Please help out if you can. Thanks!

copy

;;;Place Room Tag in Middle of Room and Auto Fill 'x' and 'y' Attribute Values(defun c:RoomTag (/ pt1 pt3 rx ry pt5)(initget 1)(setq pt1 (getpoint "\nFirst Corner: "))(initget 1)(setq pt3 (getcorner "\nOpposite Corner: "))(setq rx (abs (- (car pt3)(car pt1))))(setq ry (abs (- (cadr pt3)(cadr pt1))))(setq pt5 ((+ rx pt1) (- ry pt3)))(command "_INSERT" "Tag_Room-Dim" pt5 "" "" pause pause rx ry "")(princ)

Tharwat · 发表于 2022-7-6 07:27:54

One issue ....

copy

(setq pt5 ([b]list [/b](+ rx pt1) (- ry pt3)))

I think you should add one more parenthesis at the end of the routine .

jfklimek · 发表于 2022-7-6 07:29:29

copy

[i][size=2];;;Place Room Tag in Middle of Room and Auto Fill 'x' and 'y' Attribute Values[/size][/i][i][size=2](defun c:RoomTag (/ pt1 pt3 rx ry pt5)[/size][/i][i][size=2](initget 1)[/size][/i][i][size=2](setq pt1 (getpoint "\nFirst Corner: "))[/size][/i][i][size=2](initget 1)[/size][/i][i][size=2](setq pt3 (getcorner pt1 "\nOpposite Corner: "))[/size][/i][i][size=2](setq rx ((- (car pt3)(car pt1))))[/size][/i][i][size=2](setq ry ((- (cadr pt3)(cadr pt1))))[/size][/i][i][size=2](setq pt5 (list (+ rx pt1) (+ ry pt1)))[/size][/i][i][size=2](command "_INSERT" "Tag_Room-Dim" pt5 "" "" pause pause "abs rx "x" abs ry" " ")[/size][/i][i][size=2](princ)[/size][/i][i][size=2])[/size][/i]

Thanks Tharwat, That got it off the ground. But now after I click the other corner of the room it gives me a 'bad function: 186.25'.

I think I need to clarify. I am trying to pick two opposite corners to a room and have the lisp automatically put in a block with attributes I've created and fill the 'room dimensions' value of the block with (x'-x'' x y'-y''). The little 'x' between the two dimensions values is plain text. So I also need to find out how to get the values it is giving me for the distances and convert them to architectural equivalents... 186.25 = 15'-6 1/4". And secondly I would like it to round to the nearest whole number. Thanks for any other help.

Tharwat · 发表于 2022-7-6 07:38:57

You have extra parenthesis in the two lines , one for the variable rx and one for ry .

You receive bad function because the numbers must be strings ( i am saying that without testing it ) .

pBe · 发表于 2022-7-6 07:44:19

Note: With the command method, you need to consider the way "Tag_Room-Dim" is created (for scale) , ATTREQ & ATTDIA current Value

copy

(defun c:RoomTag (/ pt1 pt3 rx ry pt5)[b][color="blue"] (setq        atrq (getvar 'attreq)atd  (getvar 'attdia) ) (setvar 'Attreq 1) (setvar 'attdia 0)[/color][/b] (initget 1) (setq pt1 (getpoint "\nFirst Corner: ")) (initget 1) (setq pt3 (getcorner pt1 "\nOpposite Corner: ")) (setq rx (- (car pt3) (car pt1))) (setq ry (- (cadr pt3) (cadr pt1))) ;(setq pt5 (list (+ rx pt1) (+ ry pt1))) (command "_INSERT"   "Tag_Room-Dim" [b][color="blue"]  "_scale"   "1"[/color][/b]   [b][color="blue"](polar pt1 (angle pt1 pt3) (* (distance pt1 pt3) 0.5))[/color][/b]   ""   [color="blue"][b](strcat (rtos rx 4 0) "x" (rtos ry 4 0))[/b][/color] )[b][color="blue"]  (setvar 'Attreq atrq) (setvar 'attdia atd)[/color][/b] (princ))

SLW210 · 发表于 2022-7-6 07:50:00

jfklimek,

Please read the CODE POSTING GUIDELINES and edit your posts to include CODE TAGS!

Tharwat · 发表于 2022-7-6 07:52:39

Error trap to re-set the user settings would be very helpful and safer

jfklimek · 发表于 2022-7-6 07:56:57

roger that SLW210. I tried to go back and change the code I put previously in but it says I don't have privelages to make those changes. This will be adhered to from now on. I apologize.

jfklimek · 发表于 2022-7-6 08:06:17

pBe, Thanks! So I'll make this short since the passed three replies were erased because it took to long for me to reply! ahhh.

The code works, but I have to rearrange the three attributes in the block in order for the 'strcat' value to auto place. (It only auto places in the first attribute option). If it's not in the first attribute option, the following code skips any user input for the attributes entirely and places the 'strcat in the first value.

copy

(command "_INSERT"   "Tag_Room-Dim"   "_scale" "1"   (polar pt1 (angle pt1 pt3) (* (distance pt1 pt3) 0.5))   ""   pause   pause   (strcat (rtos rx 4 0) "x" (rtos ry 4 0)))

Ideally I'd like to have the attributes arrange so that it prompts me for the first two attribute values then auto fills the last one with 'strcat'. Is this possible?

The following code works with a rearrange block as spoken of above!

copy

(defun c:RoomTag\ (/ pt1 pt3 rx ry pt5) (setq        atrq (getvar 'attreq)atd  (getvar 'attdia) ) (setvar 'Attreq 1) (setvar 'attdia 0) (initget 1) (setq pt1 (getpoint "\nFirst Corner: ")) (initget 1) (setq pt3 (getcorner pt1 "\nOpposite Corner: ")) (setq rx (- (car pt3) (car pt1))) (setq ry (- (cadr pt3) (cadr pt1))) (command "_INSERT"   "Tag_Room-Dim"   "_scale" "1"   (polar pt1 (angle pt1 pt3) (* (distance pt1 pt3) 0.5))   ""   (strcat (rtos rx 4 0) "x" (rtos ry 4 0))) (setvar 'Attreq atrq) (setvar 'attdia atd) (princ))

BIGAL · 发表于 2022-7-6 08:11:08

Have the code auto fill all attributes. After picking the two corners then ask for the two attributes it will accept a if you want blank entry.

This way insert pt scale rot att1 att2 att3 no worry then about pausing.

copy

(setq pt3 (getcorner pt1 "\nOpposite Corner: "))(setq att1 (getstring "\nEnter att1"))(setq att2 (getstring "\nEnter att2"))

[编程交流] Block Insert, Center and Auto

发表回复

精选推荐