Identify the Command used in LISP
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
@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.
@Amriya_Exe Attach resulting dwg file so we can rewrite the code you are looking for!
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
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)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
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.
@Amriya_Exe See video on post #11 and take code. Not changed but added explanation for key selection for up down.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Check if code needs some modifications regarding block orientations or scaling depending on the case (U D) and distance between marker points.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
