Combine the _dimlinear and UCS Commands

Any body help..here how to combine this both commands..I want combine this "Ucs" "e" and "_dimlinear"

after command its should ask the select object for UCS position change after that automatic its need to come _dimlinear..without _dimlinear command given..

(DEFUN C:test ()

(command "ucs" "e" " " )

(command "_dimlinear" )

(princ)

)

Check ...

(defun c:test (/ ss)
 (if (setq ss (entsel "\n Select One object :"))
   (progn
     (command "_.ucs" "_e" ss )
     (command "_.dimlinear" "" ss pause ))
   (princ)
   )
 (princ)
 )

TharwaT

I’m just wondering, doesn’t the DIMALIGN or DIMLINEAR with Rotated option fit your need?

Regards,

Mircea

I guess the most need of that is to move the ucs to the selected entity with a dimension.

Regards

thanks for your reply Tharwat...as per this its working good.actually as per this ucs its placing same dim text position.But normally we are doing dimension for one slope line!means as per Ucs selection(Line top means one postion Line bottom means dim text is another position)will come.But as per this code dim text is coming same position.as per ucs selection it should consider..can you help for this

(defun c:test (/ ss)

(if (setq ss (entsel "\n Select One object :"))

(progn

(command "_.ucs" "_e" ss )

(command "_.dimlinear" ss pause ))

(princ)

)

(princ)

)

What is the benefit of the ucs to be positioned at the selected line ?

What is the benefit of the ucs to be positioned at the selected line ?

that is for dimention as per that line position(Angle).After the Ucs position (as per the Line) change i want take dimension with dimlinear method.

When you change your ucs to be at a specific angle of an entity, that would cause the next entity dimension to be rotated accordingly .

So things would be mixed up randomly . which would cause the dimension to be far from the selected entity .

This may help you with what you are after .

(defun c:test (/ ss e p1 p2 ent)
 ; Tharwat 14. 05. 2011
 (if (and (setq ss (entsel "\n Select One Line :"))
          (eq (cdr (assoc 0 (setq e (entget (car ss))))) "LINE")
     )
   (progn
     (if (> (car (setq p1 (cdr (assoc 10 e))))
            (car (setq p2 (cdr (assoc 11 e))))
         )
       (progn
         (setq ent (entmakex
                     (list (cons 0 "LINE") (cons 10 p2) (cons 11 p1))
                   )
         )
         (command "_.matchprop" ss ent "")
         (command "_.ucs" "_e" ent)
         (command "_.dimlinear" "" ss pause)
         (entdel (car ss))
       )
       (progn
         (command "_.ucs" "_e" ss)
         (command "_.dimlinear" "" ss pause)
       )
     )
   )
   (princ "\n Please select line only")
 )
 (princ)
)

Tharwat

Tharwat

As per this code what is difference?i have tried this..Dim Text Coming Same Position(Angle).

Tharwat

More time i want to take dimension for multi line.So only here i have removed that ""{From (command "_.dimlinear" "" ss pause)}.i hope surely you will help for me.

I feel so hard to understand your English and your descriptions as well .

The last codes that I posted for you, are doing the trick without taking any consideration about the angle of the selected line , and the dimension text is from left to right and

nothing is upside down as you shown in your last image and which is in the Cyan box.

So now , which way you want it to be . the dimension which is in Blue box or the one which is in Cyan box ?

Tharwat

Tharwat

That image cyan colour(2335.1) is i have placed manually(WithOut Code).while we are Changing the Ucs it will ask the Source Object for Position.Suppose we are selecting the top of Line (For Source Object)means dim text will come one direction.Suppose we are selecting the bottom of the line means dim text will come another direction.Please see that Image Cyan box(2335.1).But while we are using the Code Dim text is coming same postion(Selecting the line top or bottom)

Tharwat forget me?