(defun c:ga (/ a ar pt sc pt1)
(setq pt1 (getpoint “Select point inside area to be calculated: “))
(command “-boundary” pt1 “”)
(setq A (ssget “L”))
(setq unts (getvar “lunits”))
(setvar “lunits” 2)
(command “area” “e” a )
(setq ar (getvar “area”))
(setvar “lunits” unts)
(setq pt (getpoint “select location for area note: “))
(command “text” pt”"”" ar)
)
Tulisan terkirim dikaitan (tagged) ‘Software’
point inside area to be calculated
Ditulis oleh dahlanforum di/pada Februari 26, 2009
Ditulis dalam AutoCad | Bertanda: AutoCad, Software | Leave a Comment »
Membut kotak dengan memasukkan ukurannya
Ditulis oleh dahlanforum di/pada Mei 12, 2008
;Membut kotak dengan memasukkan ukurannya
(defun c:bx(/ af an di)
(setq af(getp “\n Base point: “)
an(getreal “Horizontal: “))
(command “line” “non” af “non”(list(+(car af)an)(cadr af)) “”)
(setq di(getreal(strcat”\n Vertical : “)))
(if(not di)(setq di an))
(command”line” “” “non”(list(+(car af)an)(+(cadr af)di))
“non”(list(car af)(+(cadr af)di)) “non”af “”"line”
“non”(list(+(car af)(/ an 2))(-(cadr af)(/ di 10)))
“non”(list(+(car af)(/ an 2))(+(cadr af)(* di 1.1))) “”"line”
“non”(list(+(car af)(* an 1.1))(+(cadr af)(/ di 2)))
“non”(list(-(car af)(/ an 10))(+(cadr af)(/ di 2))) “”)
(princ))
Ditulis dalam AutoCad, umum | Bertanda: AutoCad, Lisp, Software | 3 Komentar »
