topic Re: Identify the Command used in LISP in Visual LISP, AutoLISP and General Customization Forum

Identify the Command used in LISP

Amriya_Exe — Thu, 11 Apr 2024 20:10:11 GMT

My requirement is want to how this attached lisp is functioning so I can also write/learn something like that as per my requirement.

This LISP ask to select 9 points on downline and 9 points on upline when we use command "PLAN-AK" then add some custom blocks on that points with some formal/calculation.

Please Check VIDEO attached to see How this working.

(view in My Videos)

Re: Identify the Command used in LISP

john.uhden — Fri, 12 Apr 2024 00:59:01 GMT

@Amriya_Exe ,

It looks like it took you just over a minute. Isn't that good enough?

Re: Identify the Command used in LISP

Sea-Haven — Fri, 12 Apr 2024 02:57:31 GMT

Is red line a line or pline going through all points ? If so can use that to select 2 rows of points. If the points are created in sequence it looks like that then easy, if not can sort the points into correct order, that would take like 3 seconds then your splat answer, maybe 10 seconds.

Please confirm. Hint (SSGET "F" pts '((0 . "POINT")))

Re: Identify the Command used in LISP

Amriya_Exe — Fri, 12 Apr 2024 04:37:33 GMT

Yes that Polyline is going through all points.

For this example points in same sequence all at distance of 4.490m. but on actual work some will be at 4.985, 4.983, 4.992, something like that.

I want to know how it's working and I wanted to recreate my own version of it.

Re: Identify the Command used in LISP

-didier- — Fri, 12 Apr 2024 16:47:48 GMT

Bonjour @Amriya_Exe

It does not seem very difficult.
If I understand correctly, of course !

For example, what does it mean ? : on that points with some formal/calculation.

What kind of calculations?

Amicalement

Re: Identify the Command used in LISP

Kent1Cooper — Fri, 12 Apr 2024 17:21:04 GMT

@Amriya_Exe wrote:

My requirement is want to how this attached lisp is functioning ....

That is a .VLX file, which is a compiled format, and we can't get into it, to look at how it functions. If you have access to the presumed AutoLisp .LSP file that it was compiled from, maybe we could advise you.

Re: Identify the Command used in LISP

Amriya_Exe — Fri, 12 Apr 2024 23:25:29 GMT

I don't have LSP.
Cant we get some idea from the process to make similar?

Re: Identify the Command used in LISP

Amriya_Exe — Fri, 12 Apr 2024 23:39:14 GMT

Calculation like there is insert of block "ej" which will be added on point number 3,5,7 on up line and similar on downline.
Insert Block Name "5m" on meddle of two points between 1&2, 2&3, 3&4, 5&6, 7&8.
Insert Block name "left-rc" on Point 1&9 of both line but on points 9 it will be rotated 180.
and after all these add dimension like showing in drawing.

Re: Identify the Command used in LISP

hak_vz — Sat, 13 Apr 2024 09:49:22 GMT

@Amriya_Exe Attach resulting dwg file so we can rewrite the code you are looking for!

Re: Identify the Command used in LISP

Primerail01 — Sat, 13 Apr 2024 12:20:46 GMT

Please find attachment.

Re: Identify the Command used in LISP

hak_vz — Sun, 14 Apr 2024 10:48:57 GMT

@Amriya_Exe @Primerail01

Here you have it. Check if everything is here!

(defun c:ppk( / *error* adoc ss points middlepoints i oldosm blk evenp) ; author: Hak_vz 13.04.2024. ; https://forums.autodesk.com/t5/user/viewprofilepage/user-id/5530556 ; posted to ; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/identify-the-command-used-in-lisp/m-p/12706375#M464577 (defun *error* () (setvar 'cmdecho 1) (setvar 'osmode oldosm) (if (and adoc) (vla-endundomark adoc)) (princ) ) (defun evenp (num)(cond ((numberp num) (= (rem num 2.0) 0.0)))) (princ "\nSelect points (they will auto order) >") (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (setq ss (ssget '((0 . "POINT"))) i -1) (cond ((and ss (>= (sslength ss) 2)) (setq oldosm (getvar 'osmode)) (setvar 'osmode 0) (setvar 'cmdecho 0) (vla-endundomark adoc) (vla-startundomark adoc) (while (< (setq i (1+ i)) (sslength ss)) (setq points (cons (cdr (assoc 10 (entget (ssname ss i)))) points)) ) (setq points (vl-sort points '(lambda (a b) (< (car a)(car b))))) (setq i -1) (while (< (setq i (1+ i)) (1- (length points))) (setq middlepoints (cons (mapcar '* '(0.5 0.5 0.0) (mapcar '+ (nth i points)(nth (1+ i) points))) middlepoints)) ) (setq middlepoints (vl-sort middlepoints '(lambda (a b) (< (car a)(car b))))) (setq blk (vlax-invoke (vlax-get (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) "MODEL" ) 'block ) 'InsertBlock (car points) "left-rc" 1 1 1 0 ) ) (setq blk (vlax-invoke (vlax-get (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) "MODEL" ) 'block ) 'InsertBlock (last points) "L-SEMIANCHOR" 1 1 1 0 ) ) (setq i 0) (while (< (setq i (1+ i)) (1- (length points))) (setq blk (vlax-invoke (vlax-get (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) "MODEL" ) 'block ) 'InsertBlock (nth i points) "FULL-ANCHOR" 1 1 1 0 ) ) ) (foreach pt middlepoints (setq blk (vlax-invoke (vlax-get (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) "MODEL" ) 'block ) 'InsertBlock pt "5m" 1 1 1 0 ) ) ) (initget "U D") (setq opt (strcase(getkword "\nUpline or Downline <U D> >>"))) (if (= opt "D") (setq dir -1)(setq dir 1)) (setq i -1 k (mapcar '* (list 0 dir) '(0 2.0))) (while (< (setq i (1+ i)) (1- (length points))) (command "_.dimhorizontal" (nth i points)(nth (1+ i) points)(mapcar '+ (nth (1+ i) points) k)) ) (setq i -1 spt nil) (while (< (setq i (1+ i)) (length points)) (cond ((= i 0)(setq spt (cons (nth i points) spt))) ((and (evenp i)(< i (1- (length points)))) (setq spt (cons (mapcar '- (nth i points)'(0.005 0.0)) spt)) (setq spt (cons (mapcar '+ (nth i points)'(0.005 0.0)) spt)) ) ((= i (1- (length points)))(setq spt (cons (last points) spt))) ) (cond ((and (evenp i)(> i 0)(< i (1-(length points)))) (setq blk (vlax-invoke (vlax-get (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) "MODEL" ) 'block ) 'InsertBlock (nth i points) "ej" 1 1 1 pi ) ) ) ) ) (setq spt (reverse spt)) (setq i -1) (setq i -1 k (mapcar '* (list 0 dir) '(0 3.0))) (while (< (setq i (1+ i)) (1- (length spt))) (command "_.dimhorizontal" (nth i spt)(nth (1+ i) spt)(mapcar '+ (nth (1+ i) spt) k)) ) (setq k (mapcar '* (list 0 dir) '(0 4.0))) (command "_.dimhorizontal" (car points)(last points)(mapcar '+ (last points) k)) (setvar 'osmode oldosm) (setvar 'cmdecho 1) (vla-endundomark adoc) ) ) (princ "\nDone!") (princ) ) (princ "\n Enter PPK to run!") (princ)

(view in My Videos)

Re: Identify the Command used in LISP

Amriya_Exe — Sun, 14 Apr 2024 05:26:09 GMT

Thank you very much.
I try but after selecting points I getting this message.

I getting this error.

Block not getting aligned to line.

When I select the points auto detect number detecting my first point as last point so adding wrong block on last point and last block on first block.

and last its getting stopped when its ask bout Downline or Upline.

Re: Identify the Command used in LISP

hak_vz — Sun, 14 Apr 2024 10:52:09 GMT

@Amriya_Exe See video on post #11 and take code. Not changed but added explanation for key selection for up down.

Re: Identify the Command used in LISP

Amriya_Exe — Sun, 14 Apr 2024 18:22:40 GMT

Thank you 🙂

Re: Identify the Command used in LISP

hak_vz — Sun, 14 Apr 2024 18:55:36 GMT

@Amriya_Exe

Check if code needs some modifications regarding block orientations or scaling depending on the case (U D) and distance between marker points.