Block Insert, Center and Auto

jfklimek · 发表于 2022-7-6 08:14:58

Thanks BIGAL!

So I've completed this Lisp how I'd like it to work. Thanks for all the help peoples! The lisp is below and the block is attached for anyone that wants to use!

copy

;;;RTAG(defun c:RTAG\ (/ pt1 pt3 rx ry pt5) (setq        atrq (getvar 'attreq)atd  (getvar 'attdia) ) (setvar 'Attreq 1) (setvar 'attdia 0) (initget 1) (setq pt1 (getpoint "\nFirst Room Corner: ")) (initget 1) (setq pt3 (getcorner pt1 "\nOpposite Room Corner: ")) (setq att1 (getstring "\nEnter Room Name Top")) (setq att2 (getstring "\nEnter Room Name")) (setq rx (abs (- (car pt3) (car pt1)))) (setq ry (abs (- (cadr pt3) (cadr pt1)))) (command "_INSERT""Tag_Room-Dim""_scale" "1"(polar pt1 (angle pt1 pt3) (* (distance pt1 pt3) 0.5))""att1(strcat "%%U" att2)(strcat (rtos rx 4 0) "x" (rtos ry 4 0)) (setvar 'Attreq atrq) (setvar 'attdia atd) (princ))

Tag_Room-Dim.dwg

SLW210 · 发表于 2022-7-6 08:19:21

Select "Go Advanced" at the lower right of the reply box, they code tag button (#) should be there or alternately, add the tags yourself

copy

. (no space between the E and the bracket)
 
I fixed your post this time.

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

发表回复

精选推荐