dtext rotation variable?

[tuomo.jarvinen]

Hi,

I'm trying to set the default rotation angle for a new dtext object by first clicking an existing object and thus copying it's rotation.
I know how to get it but can't figure out how to set it.
Is there a variable for dtext rotation?

(setq ent (car (entsel)))
(setq rotationangle (cdr (assoc 50 (entget Ent))))

[rkmcswain]

Your code is doing what you asked.
What else do you need?

(See Page 144 = http://images.autodesk.com/adsk/file...erence_enu.pdf )

[Tom Beauford]

The default value is simply the last one used. While your code returns the rotation of a selected dtext there is no system variable or easy way to preset the default rotation angle for a new dtext object except for annotative text. You could set the system variable snapang to your rotationangle value with ortho on to allow selecting that angle with a pick of the mouse for the first dtext which might make it easier for you:

(setvar 'snapang (cdr (assoc 50 (entget (car (entsel))))))

Lots of ways to modify the dtext angle after it's drawn as well.

[tuomo.jarvinen]

Thank You for Your responses!

This is what I'm trying to accomplish:
I want to select an object and copy it's properties to my default properties for new objects, a bit like "matchprop" beforehand.

;;22.28 30.7.2018 T. Järvinen 
;;Pick to set object properties

(defun c:1 ( / ent)
(setq ent (car (entsel "\nSelect object to Make More of the same: ")))

;; objectlinetype
(setq objectlinetype (cdr (assoc 6 (entget Ent))))
(if (setq objectlinetype (cdr (assoc 6 (entget Ent)))) (setvar "celtype" objectlinetype) (setvar "celtype" "ByLayer"))
;(setvar "celtype" objectlinetype)

;; objectlayer
(setq objectlayer (cdr (assoc 8 (entget Ent))))
;(setvar "clayer" objectlayer)
;(command "clayer" "")
(command "clayer" objectlayer)

;; objectcolor
(setq objectcolor (cdr (assoc 62 (entget Ent))))
;(setvar "cecolor" objectcolor)
(command "cecolor" objectcolor)

;;objectlineweight
(setq objectlineweight (cdr (assoc 43 (entget Ent))))
(command "plinewid" objectlineweight)

;;objectlinetypescale
(if (setq objectlinetypescale (cdr (assoc 48 (entget Ent)))) (setvar "celtscale" objectlinetypescale) (setvar "celtscale" 1))
;(setvar "celtscale" objectlinetypescale)

;;objectlinetypegeneration
(if (= (cdr (assoc 70 (entget Ent))) 128) (setq objectlinetypegeneration 1) (setq objectlinetypegeneration 0))
(command "plinegen" objectlinetypegeneration)

;;objecttextsize
(if (setq objecttextsize (cdr (assoc 40 (entget Ent)))) (setvar "textsize" objecttextsize) nil)

;;objecttextstyle
(if (setq objecttextstyle (cdr (assoc 7 (entget Ent)))) (setvar "textstyle" objecttextstyle) nil)

;;rotationangle 
(if (setq rotationangle (* 180.0 (/(cdr (assoc 50 (entget Ent)))pi)))
	(progn 
		(command "text" "@" "" rotationangle "erase me")
		(entdel (entlast))
	)
	(progn
		(command "text" "@" "" 0 "erase me")
		(entdel (entlast))
	)
)
)

[tuomo.jarvinen]

Oops... I didn't know about "ADDSELECTED" - command
https://knowledge.autodesk.com/suppo...76050-htm.html

[rkmcswain]

Oops... I didn't know about "ADDSELECTED" - command

But ADDSELECTED does not replicate the rotation angle.

[tuomo.jarvinen]

...and neither the polyline width. And it returns the previous settings after one created object.