Jump to content

Dimension baseline and continue in one?!


Recommended Posts

Hello all,


I wondered if it's possible to have a kind of command or lisp that gets the continue and baseline command in one single command?


In the picture below you see the result I need in one command.

Now it is done in 2 commands and it's taking a lot of time.


17-08-2016 13-09-10.jpg



Can somebody help me?




Kind regards,


Edited by DesmetMartin
Link to comment
Share on other sites

A few different ways to do it a suggestion just pick points using a lisp, in dim order, save in a list and run the two dim commands one after the other.


pick pt1 pt2 pt3 pt4
dim pt1 pt2, dim pt2 pt3 etc in a loop
dim base pt1 pt1v pt2 pt3 pt4 pt5 etc


Ps I do the horizontals all in one go just drag a line over the verticals. Its what I call Autodimensioning, sorry its copy right. pretty sure there are versions out there, check maybe www.Lee-mac.com

Link to comment
Share on other sites

(defun c:tt()
 (setq p1 (getpoint "\nStarting Point")
p2 (getpoint p1"\nEnd Point")
nn (getint "Number:")
      lst nil)
 (if (and p1 p2 nn)
   (progn (setq lst (dividex p1 p2 nn) sc (* (getvar "DIMTXT") (getvar "DIMSCALE")))
          (mapcar '(lambda (x y) (command ".dimaligned" "_non" X "_non" Y "_non" (polar x (- (angle x y) (* 0.5 pi)) (* 5 sc)))
	                  (command "_text" "_non" (polar x (- (angle x y) (* 0.5 pi)) (* 5.5 sc))  sc  (* (/ (- (angle x y) (* 0.5 pi)) pi) 180.0)  (rtos (distance x p1) 2 2) "")
	      )  lst (cdr lst))

(defun dividex ( s e i / a r sl)
   (setq r (list s)
         a (angle s e)
  sl (/ (distance s e) i) ;
   (repeat (fix i)
       (setq r (cons (polar (car r) a sl) r))

Edited by ssdd
Link to comment
Share on other sites

@SSSD: This LISP doens't work...

It's not really what I'm searching for, but thanks anyway :)


@BIGAL: I don't get it what you mean.. :unsure:

Link to comment
Share on other sites

  • 3 weeks later...

I am suprised some else has not posted its not that hard, have a look at the images, the dims were done in single pass, it was done using fence and ssget.


Edited by BIGAL
Link to comment
Share on other sites

Bigal, your link is not working. It is taking me to edit your post. Can you check it please?



This is the message:



mdbdesign, you do not have permission to access this page. This could be due to one of several reasons:


  1. Your user account may not have sufficient privileges to access this page. Are you trying to edit someone else's post, access administrative features or some other privileged system?
  2. If you are trying to post, the administrator may have disabled your account, or it may be awaiting activation.

Link to comment
Share on other sites

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Create New...