topic Re: Polyline autodim lisp editting in Visual LISP, AutoLISP and General Customization Forum

Polyline autodim lisp editting

holyhexor0o0 — Fri, 05 Apr 2024 01:45:59 GMT

Hi all, I found this great lisp that does all the things needed,however there is a slight problem of the dim distance.

The distance is set in the script as
(* 3(getvar "DIMTXT")))

which is 3 times the Dim txt height. Every time that a different drawing needs a different distance, the script needs to be changed

Can anyone edit this so it would jump out a prompt and we can type out the distance ourselves, or type out the type out the X amount of times of Dim txt height or smth.

Re: Polyline autodim lisp editting

komondormrex — Fri, 05 Apr 2024 07:16:21 GMT

hey,

maybe like that

(defun c:pdim(/ plSet pLlst vLst oldOsn cAng cDis cPt times) (if (null init_list) (setq init_list '(3))) (princ "\n<<< Select LwPolyline for dimensioning >>> ") (if(setq plSet(ssget '((0 . "LWPOLYLINE")))) (progn (setq pLlst(vl-remove-if 'listp (mapcar 'cadr(ssnamex plSet))) oldOsn(getvar "OSMODE") times (getint (strcat "Times DimTxt dimension distance <" (itoa (nth 0 init_list)) ">: ")) times (if (null times) (nth 0 init_list) times) ); end if (setvar "OSMODE" 0)(setvar "CMDECHO" 0) (command "_.undo" "_be") (foreach pl pLlst (setq vLst(mapcar '(lambda(x) (trans x 0 1))(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= 10(car x)))(entget pl)))) ); end setq (if(equal '(70 . 1)(assoc 70(entget pl))) (setq vLst(append vLst(list(car vLst)))) ); end if (while(< 1(length vLst)) (setq cAng(angle(car vLst)(cadr vLst)) cDis(/(distance(car vLst)(cadr vLst))2)) (if(>=(caar vLst)(caadr vLst)) (setq cAng(- cAng pi)) ); end if (setq cPt(polar (polar(car vLst)cAng cDis) (+ cAng(* 0.5 pi))(* times (getvar "DIMTXT"))) ); end setq (command "_.dimaligned"(car vLst)(cadr vLst) cPt) (setq vLst(cdr vLst)) ); end while ); end foreach (command "_.undo" "_e") (setvar "OSMODE" oldOsn)(setvar "CMDECHO" 1) (setq init_list (list times)) ); end progn ); end if (princ) )

Re: Polyline autodim lisp editting

holyhexor0o0 — Fri, 05 Apr 2024 09:07:30 GMT

thanks, it sure works

Re: Polyline autodim lisp editting

holyhexor0o0 — Wed, 11 Dec 2024 03:17:35 GMT

Hi komondormrex,

First of all, thank you very much for your help. This Lisp is well used by my colleagues.

However the distance is sometimes a problem because it requires value of an interger.

Could you please edit this lisp to enter absolute number instead ?

Re: Polyline autodim lisp editting

komondormrex — Wed, 11 Dec 2024 06:02:59 GMT

hey there,

sure

(defun c:pdim(/ plSet pLlst vLst oldOsn cAng cDis cPt times) (if (null init_list) (setq init_list '(3.0))) (princ "\n<<< Select LwPolyline for dimensioning >>> ") (if(setq plSet(ssget '((0 . "LWPOLYLINE")))) (progn (setq pLlst(vl-remove-if 'listp (mapcar 'cadr(ssnamex plSet))) oldOsn(getvar "OSMODE") times (getreal (strcat "Times DimTxt dimension distance <" (rtos (nth 0 init_list) 2 1) ">: ")) times (if (null times) (nth 0 init_list) times) ); end if (setvar "OSMODE" 0)(setvar "CMDECHO" 0) (command "_.undo" "_be") (foreach pl pLlst (setq vLst(mapcar '(lambda(x) (trans x 0 1))(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= 10(car x)))(entget pl)))) ); end setq (if(equal '(70 . 1)(assoc 70(entget pl))) (setq vLst(append vLst(list(car vLst)))) ); end if (while(< 1(length vLst)) (setq cAng(angle(car vLst)(cadr vLst)) cDis(/(distance(car vLst)(cadr vLst))2)) (if(>=(caar vLst)(caadr vLst)) (setq cAng(- cAng pi)) ); end if (setq cPt(polar (polar(car vLst)cAng cDis) (+ cAng(* 0.5 pi))(* times (getvar "DIMTXT"))) ); end setq (command "_.dimaligned"(car vLst)(cadr vLst) cPt) (setq vLst(cdr vLst)) ); end while ); end foreach (command "_.undo" "_e") (setvar "OSMODE" oldOsn)(setvar "CMDECHO" 1) (setq init_list (list times)) ); end progn ); end if (princ) )

Re: Polyline autodim lisp editting

holyhexor0o0 — Wed, 11 Dec 2024 07:17:31 GMT

Thank you it works with non interger numbers now, however sorry for not making myself clear.

What i meant regarding "absolute number" it the number where you offset from polyline, not the number of "multiple for text height".

E.G Dimal 4 units from polyline (instead of 2 times of text height 2)

Re: Polyline autodim lisp editting

komondormrex — Wed, 11 Dec 2024 08:04:08 GMT

sorry, the following uses absolute dimension offset number.

(defun c:pdim (/ plSet pLlst vLst oldOsn cAng cDis cPt offset) (if (null init_list) (setq init_list '(3.0))) (princ "\n<<< Select LwPolyline for dimensioning >>> ") (if (setq plSet(ssget '((0 . "LWPOLYLINE")))) (progn (setq pLlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex plSet))) oldOsn (getvar "OSMODE") offset (getreal (strcat "Absolute dimension offset distance <" (rtos (nth 0 init_list) 2 1) ">: ")) offset (if (null offset) (nth 0 init_list) offset) ); end if (setvar "OSMODE" 0) (setvar "CMDECHO" 0) (command "_.undo" "_be") (foreach pl pLlst (setq vLst (mapcar '(lambda(x) (trans x 0 1)) (mapcar 'cdr (vl-remove-if-not '(lambda(x) (= 10 (car x))) (entget pl))) ) ); end setq (if (equal '(70 . 1) (assoc 70 (entget pl))) (setq vLst(append vLst(list(car vLst)))) ); end if (while (< 1 (length vLst)) (setq cAng (angle (car vLst) (cadr vLst)) cDis (/ (distance(car vLst) (cadr vLst))2) ) (if (>= (caar vLst) (caadr vLst)) (setq cAng (- cAng pi)) ); end if (setq cPt (polar (polar (car vLst) cAng cDis) (+ cAng (* 0.5 pi)) offset ) ); end setq (command "_.dimaligned" (car vLst ) (cadr vLst) cPt) (setq vLst(cdr vLst)) ); end while ); end foreach (command "_.undo" "_e") (setvar "OSMODE" oldOsn) (setvar "CMDECHO" 1) (setq init_list (list offset)) ); end progn ); end if (princ) )

Re: Polyline autodim lisp editting

holyhexor0o0 — Wed, 11 Dec 2024 08:11:26 GMT

Thank you very much mister superman