need quick dimension lisp

[drafting_man]

hi everybody

i wish if someone can do this lisp

i want when to run this lisp ask me to select object ( lines )

and when i select the object the lisp make quickdimension with basepoint

then rotat the dimension at 90 degree

then move all dimension that created down 6 units

then explode the dimension 2 times to convert the dimension to

single line text that's all and than's for help

Edited September 6, 2010 by drafting_man

[Sweety]

Hi drafting_man.

 

You can use the Autocad command (qdim) which could help you a lot. and for exploding also the (explode) command

would take care of it.

 

Hope this help.

 

Sweety

[Lee Mac]

them explode the dimension 2 times

 

:shock: woahh....

[drafting_man]

thank's sweety for your reply

at this time i use quick dimension then rotate the dimension then move down 6 units then explode 2 time this take long time i wish if someone can make lisp

to save my time specily i use this commands many times

[drafting_man]

:shock: woahh....

 

 

lee mac here you are i wish u can do this for me

sorry for my bad language ( i want to say then not them )

[Sweety]

:shock: woahh....

 

He may mean, when exploding dimensions, texts would be in Mtext mode, and to double explode them would

convert the Mtext to single Text only.

 

Thankxxxxxxx

[ReMark]

Is there a practical use for this? Sounds like you're doing something wrong.

[Lee Mac]

lee mac here you are i wish u can do this for me

sorry for my bad language ( i want to say then not them )

 

It wasn't the spelling... surely exploding dimensions is bad practice...

[Cad64]

surely exploding dimensions is bad practice...

 

Very, very bad practice indeed.

[drafting_man]

It wasn't the spelling... surely exploding dimensions is bad practice...

 

in my work ( Sewage )exploding dimension is not bad practice

because all what i need just dimension text Measurement

dimension text is the Cumulative distance between manhole and the next

[pryzmm]

in my work ( Sewage )exploding dimension is not bad practice

because all what i need just dimension text Measurement

dimension text is the Cumulative distance between manhole and the next

 

drafting man,,, im not sure if you knew that you can suppress the dim lines & extension lines of your dimension inside the dimension style manager,,furthermore you can amend its dimension text manually when need be without exploding it, it will be easier for you to update it also later on should the manhole be moved...my 2 cents :wink:

[drafting_man]

drafting man,,, im not sure if you knew that you can suppress the dim lines & extension lines of your dimension inside the dimension style manager,,furthermore you can amend its dimension text manually when need be without exploding it, it will be easier for you to update it also later on should the manhole be moved...my 2 cents :wink:

 

pryzmm thank's for reply

[ReMark]

Aren't there already a couple of lisps routine that will keep a running total of distances/dimensions?

[drafting_man]

Aren't there already a couple of lisps routine that will keep a running total of distances/dimensions?

 

where are this lisp ?

[alanjt]

It wasn't the spelling... surely exploding dimensions is bad practice...

 

Very, very bad practice indeed.

The thought makes me sick.

[Lee Mac]

It wasn't the spelling... surely exploding dimensions is bad practice...

 

Very, very bad practice indeed.

 

The thought makes me sick.

 

[Tharwat]

in my work ( Sewage )exploding dimension is not bad practice

because all what i need just dimension text Measurement

dimension text is the Cumulative distance between manhole and the next

 

With this idea you could ask for a lisp that would get two points and insert the distance or the length between the points.

as a text for that distance.

 

Good luck.

 

Tharwat

[BIGAL]

Like tharwat313 I would go lisp way. Heres a start not tested

 

(setq pt1 (getpoint "\npick first point"))

(setq pt2 (getpoint "\npick second point"))

(setq dist (distance pt1 pt2))

(setq ang (angle pt1 pt2))

(setq halfdist (/ dist 2.0))

(setq pt3 (polar pt1 ang halfdist))

(command "text" pt3 "" "" dist)

 

You can do all sorts of things with this make it running, pick multiple points, hint (setq pt1 pt2) remember last chainage move text above line, give total

[drafting_man]

Like tharwat313 I would go lisp way. Heres a start not tested

 

(setq pt1 (getpoint "\npick first point"))

(setq pt2 (getpoint "\npick second point"))

(setq dist (distance pt1 pt2))

(setq ang (angle pt1 pt2))

(setq halfdist (/ dist 2.0))

(setq pt3 (polar pt1 ang halfdist))

(command "text" pt3 "" "" dist)

 

You can do all sorts of things with this make it running, pick multiple points, hint (setq pt1 pt2) remember last chainage move text above line, give total

 

BIGAL than's for reply

but i don't need this lisp what i want

when run lisp ask me to select object ( lines )

and when i select the object the lisp make quickdimension with basepoint

then rotat the dimension at 90 degree

then move all dimension that created down 6 units

[Tharwat]

Here is one routine I made today for you, hopefully you'd find it usefully .

 

(defun c:THdim (/ i ss e
	obj start end 3rd)
 ; Tharwat 09.09.2010
 ; Special thanks to LEE for the base info. about VL codes, otherwise 
 ; I would make it with DXF codes.   
 (vl-load-com)
(if (setq i -1
  ss (ssget '((0 . "LINE"))))
 (while
   (setq e
   (ssname ss
	   (setq i (1+ i))
	    )
  )
   (setq obj (vlax-ename->vla-object e)
  )
           (setq Start
	   (vlax-get obj 'StartPoint))
              (setq End
	      (vlax-get obj 'EndPoint))
                 (setq 3rd
		 (list
		   (car start) 
	           (- (cadr start) 6))
  )
   (command "_.dimlinear" start end 3rd )
      )
   )
 )

 

I don't know what you mean by rotating dimensions 90 degree !!!!

 

Good Luck.

 

Tharwat

Edited September 9, 2010 by Tharwat