Ref object (line) for the rotation of dimension

[skchui6159]

There are the error found in below lisp. ,; error: bad argument type: symbolp nil

;Set Object to ref for same angle (a line for reference);

I want to select the rotated dimension for rotation to same angle of the line.

There are my code.
(vl-load-com)
(Defun C:sameangle()
(setq q1 (car (entsel "\nPlease Select the Object (Line) for reference of same angle:")))
(setq obj (vlax-ename->vla-object q1))
(setq angobj (vla-get-Angle obj))
(setq n 0)
(setq ss1 (ssget))
(Repeat (sslength ss1)
(set ent (ssname ss1 n))
(setq q1data (entget ent))
(entmod (subst (cons '50 angobj) (assoc 50 q1data) q1data))
);End Repeat
(setq n (1+n))
);End of Defun

Anyone know?

[skchui6159]

Also the arrow direction ref to the line

[komondormrex · Accepted solution]

corrected for dims

(Defun C:sameangle()
(setq q1 (car (entsel "\nPlease Select the Object (Line) for reference of same angle:")))
(setq obj (vlax-ename->vla-object q1))
(setq angobj (vla-get-Angle obj))
(setq n 0)
(setq ss1 (ssget))
(Repeat (sslength ss1)
(setq ent (ssname ss1 n)) ;	set->setq
(setq q1data (entget ent))
(entmod (subst (cons '50 angobj) (assoc 50 q1data) q1data))
(setq n (1+ n))		 ;	(1+n)->(1+ n)	
);End Repeat
)

[skchui6159]

Thank you very much