; Program to find the biggest of given three numbers using And (defun c:big(/ a b c) (setq a(getint " Enter first number:") b(getint " Enter second number:") c(getint " Enter third number:") ) (cond ((and (> a b) (> a c))(alert (strcat (itoa a) " is big"))) ((and (> b a) (> b c))(alert (strcat (itoa b) " is big"))) (t (alert (strcat (itoa c) " is big"))) );cond );end ; Program to draw a circle around the text whose color is 2 OR 3 (defun c:ct(/ sset1 sslen counter e edb pt c) (if (setq sset1 (ssget "x" (list (cons 0 "*text")))) (progn (setq sslen(sslength sset1) counter 0 ) (while (< counter sslen) (setq e(ssname sset1 counter) edb(entget e) pt(cdr (assoc 10 edb)) c(cdr (assoc 62 edb)) ) (if (or (= c 2) (= c 3)) (entmake (list (cons 0 "circle")(cons 10 pt)(cons 40 2.0)(cons 62 c))) ) (setq counter (1+ counter)) );while );progn );if );end
Thank you so much sir. This is the most organized playlist of AutoLISP. Keep up the good work please.
Thank you. Please share.
Need to know about programing to understand this tutorial but nice work keep it up
Please watch complete play list. You can understand autolisp.
Sir, i see all videos, please make more it's very useful....
Thank you. Please share to your friends and colleagues.
@@cyberCADsolutions yes i already shared..
Very excellent explanation sir..🙏
Thank you. Please share to your friends and colleagues.
I like this video 👍
sir I am a beginner in AutoLISP. can I use this program to make automation programs in 3d softwares like creo or inventor?
; Program to find the biggest of given three numbers using And
(defun c:big(/ a b c)
(setq a(getint "
Enter first number:")
b(getint "
Enter second number:")
c(getint "
Enter third number:")
)
(cond
((and (> a b) (> a c))(alert (strcat (itoa a) " is big")))
((and (> b a) (> b c))(alert (strcat (itoa b) " is big")))
(t (alert (strcat (itoa c) " is big")))
);cond
);end
; Program to draw a circle around the text whose color is 2 OR 3
(defun c:ct(/ sset1 sslen counter e edb pt c)
(if (setq sset1 (ssget "x" (list (cons 0 "*text"))))
(progn
(setq sslen(sslength sset1)
counter 0
)
(while (< counter sslen)
(setq e(ssname sset1 counter)
edb(entget e)
pt(cdr (assoc 10 edb))
c(cdr (assoc 62 edb))
)
(if (or (= c 2) (= c 3))
(entmake (list (cons 0 "circle")(cons 10 pt)(cons 40 2.0)(cons 62 c)))
)
(setq counter (1+ counter))
);while
);progn
);if
);end
Sir, request again, the different using of y, x, z USC World. Hoping for a video🥰
sir I want to learn from beginning & brief about autoloap, can have any full tutorials please
AutoLISP Programming in AutoCAD: ruclips.net/p/PL-Uk9_AI5M32ZYUArh8ha9Dvujpn1WTUf
AutoLISP Programming in AutoCAD: ruclips.net/p/PL-Uk9_AI5M32ZYUArh8ha9Dvujpn1WTUf
sir i am a beginer in autolisp programming.i had a problem in autolisp console window. it is automatically shutdown shortly while its operation.
If the program wants to show graphic area, it will close console windows.