Lisp in Autocad
5 posters
:: Tutorials :: Autocad Tutorials
Page 1 of 1
Lisp in Autocad
by axel Wed Jul 20, 2011 7:54 pm
Good day to all.. Tutorial nga po about LISP para sa mga hindi rin nakakaalam tungkol sa lisp. Ano po ung LISP at para saan? Salamat.
axel- CGP Apprentice
- Number of posts : 256
Location : Nueva Ecija/Dubai
Registration date : 13/12/2008
Re: Lisp in Autocad
by JMO Wed Mar 28, 2012 7:13 am
Bro ung LISP mga shortcut and special command yon sa autocad, all you want to do is apload it..like TF command para sa mga attributes na madali ma copy ung properties nya..hope nka tulong.
JMO- CGP Newbie
- Number of posts : 41
Age : 43
Location : Dasmariñas Ctiy, Cavite
Registration date : 01/04/2011
Re: Lisp in Autocad
by aesonck Thu Mar 29, 2012 3:12 am
Check this out.
http://www.cgpinoy.org/t20826-lisp-for-changing-color-of-a-line?highlight=lisp
http://www.cgpinoy.org/t20826-lisp-for-changing-color-of-a-line?highlight=lisp
aesonck- CGP Expert
- Number of posts : 2448
Age : 44
Location : Philippines. La Trinidad-Visayas
Registration date : 13/07/2010
Re: Lisp in Autocad
by totzkimol Thu Mar 29, 2012 9:32 pm
sir ito sample ng LISP.
(defun C:TT ( / A B)
(setq A (cdr (assoc 1 (entget (car (entsel "Select TEXT to transfer: "))))))
(while (setq B (car (entsel "Select TEXT item to replace: ")))
(setq C (entget B))
(entmod (subst (cons 1 A)(assoc 1 C)C))
(if (or (= (cdr (assoc 0 C)) "POLYLINE")(= (cdr (assoc 0 C)) "INSERT"))
(entupd B)))
(princ)
)
(c:tt)
sana may magshare din ng lisp dyan...hehehe
thank you
(defun C:TT ( / A B)
(setq A (cdr (assoc 1 (entget (car (entsel "Select TEXT to transfer: "))))))
(while (setq B (car (entsel "Select TEXT item to replace: ")))
(setq C (entget B))
(entmod (subst (cons 1 A)(assoc 1 C)C))
(if (or (= (cdr (assoc 0 C)) "POLYLINE")(= (cdr (assoc 0 C)) "INSERT"))
(entupd B)))
(princ)
)
(c:tt)
sana may magshare din ng lisp dyan...hehehe
thank you
totzkimol- CGP Newbie
- Number of posts : 7
Age : 41
Location : Manila, Philippines
Registration date : 25/02/2012
jean7- CGP Newbie
- Number of posts : 91
Age : 47
Location : 'pinas
Registration date : 14/01/2009
:: Tutorials :: Autocad Tutorials
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum|
|
|