[编程交流] 向cr中添加ATTDEF（阿替丁）

(defun c:kast ()
 ;MR. CAD
 ;Autocad The Netherlands 
 ;define the function
 ;*
 ;Save System Variables
 (setq oldsnap (getvar "osmode"))
 ;save snap settings
 (setq oldblipmode (getvar "blipmode"))
 ;save blipmode setting
 (setvar "cmdecho" 1)
 ;*
 ;Switch OFF system Variables
 (setvar "osmode" 0)
 ;Switch OFF snap
 (setvar "blipmode" 0)
 ;Switch OFF Blipmode
 ;*
 ;get User Inputs
 ;get User Inputs
 (setq b (getdist "\nWidth of the cabinet : "))
 ;Width of the cabinet
 (setq h (getdist "\nHight of the cabinet : "))
 ;Hight of the cabinet
 (setq d (getdist "\nDepth of the cabinet : "))
 ;Depth of the cabinet
 (setq m (getdist "\nMaterialthickness of the cabinet : "))
 ;Materialthicknes of the cabinet
 ;*
 ;Get Insertion Point
 (setq ip (getpoint "\nInsertion Point : "))
 ;get the insertion point
 (setvar "osmode" 32)
 ;switch ON snap
 (setvar "osmode" 0)
 ;switch OFF snap
 ;*
 ;Start of Polar Calculations
 ;This are calculation made by MR Cad
 (setq p1 (polar ip (dtr 0.0) 0.0))
 (setq p2 (polar p1 (dtr 0.0) m))
 (setq p3 (polar p1 (dtr 0.0) b))
 (setq p4 (polar p3 (dtr 180.0) m))
 (setq p5 (polar p1 (dtr -90.0) d))
 (setq p6 (polar p5 (dtr 0.0) m))
 (setq p7 (polar p5 (dtr 0.0) b))
 (setq p8 (polar p7 (dtr 180.0) m))
 (setq p9 (list (car p1) (cadr p1) (+ (caddr p1) m)))
 (setq p10 (list (car p4) (cadr p4)(+ (caddr p4) m)))
 (setq p11 (polar p9 (dtr -90.0) d))
 (setq p12 (polar p10 (dtr -90.0) d))
 (setq p13 (list (car p2) (cadr p2) (+ (caddr p2) h)))
 (setq p14 (list (car p4) (cadr p4)(+ (caddr p4) h)))
 (setq p15 (polar p13 (dtr -90.0) d))
 (setq p16 (polar p14 (dtr -90.0) d))
 (setq p17 (list (car p13) (cadr p13) (- (caddr p13) m)))
 (setq p18 (list (car p14) (cadr p14) (- (caddr p14) m)))
 (setq p19 (list (car p15) (cadr p15) (- (caddr p15) m)))
 (setq p20 (list (car p16) (cadr p16) (- (caddr p16) m)))
 ;End of the Polar calculations by MR. CAD
 ;*
 ;Start Command Function
 (command "_-view" "_swiso"
) ;End command
 (command "ucs" "w" 
) ;End command
 (command "box" p1 p6 h
   "box" p4 p7 h
   "box" p2 p8 m
   "box" p13 p16 (- (+ m))
) ;End Command
 (command "zoom" "a"
) ;End Command
 ;End of Commands made by MR. CAD
 (setvar "osmode" 32)
 ;switch ON snap
 ;*
 ;Reset System Variable
 (setvar "osmode" oldsnap)
 ;Reset snap
 (setvar "blipmode" oldblipmode)
 ;Reset blipmode
 ;*
 (princ)
 ;finish cleanly
 ) ;end of defun
;*
;This function converts Degrees to Radians.
(defun dtr (x)
 ;define degrees to radians function
 (* pi (/ x 180.0))
 ;divide the angle by 180 then
 ;multiply the result by the constant PI
) ;End of function
;*
(princ) ;load cleanly
;*
;;HOPE THIS LISP WILL BE FUNCTIONAL FOR THE USER
;;MADE BY MR. CAD
;;END LISP

(command "box" p1 p6 h
   "attdef" "" "Name" "Top" "" p1 "" ""
   "attdef" "" "Hight" h "" p1 "" ""
   "attdef" "" "Width" d "" p1 "" ""
   "attdef" "" "Thickness" m "" p1 "" ""

 (command "box" p1 p6 h)
;  (setq p1 '(10 10 0))
;  (command "_SOLID" '(10 10 0) '(20 10 0) '(10 20 0) '(20 20 0) "")
 (setq fe (entlast))
 (setq bc 1 bn "TEMP1")
 (while (tblsearch "BLOCK" bn)
        (setq bc (1+ bc) bn (strcat "TEMP" (itoa bc))))
 (entmake (list (cons 0 "BLOCK")(list 10 0 0 0)(cons 2 bn)(cons 70 2)))
 (entmake (entget fe))
 (entmake (list (cons 0 "ATTDEF")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2  " "
                                    (rtos (cadr p1) 2  " "
                                    (rtos (caddr p1) 2  ")"))
                (cons 3 "TOP")
                (cons 2 "NAME")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 74 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
 (entmake (list (cons 0 "ENDBLK")(cons 8 "0")))
 (entdel fe)
 (entmake (list (cons 0 "INSERT")(cons 2 bn)(cons 10 '(0 0 0))(cons 66 1)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
 (entmake (list (cons 0 "ATTRIB")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2  " "
                                    (rtos (cadr p1) 2  " "
                                    (rtos (caddr p1) 2  ")"))
                (cons 2 "NAME")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 73 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
 (entmake (list (cons 0 "SEQEND")(cons 8 "0")))

(defun c:kast ()
 ;MR. CAD - Mitchell Rodhouse
 ;Autocad The Netherlands 
 ;define the function
 ;*
 ;Save System Variables
 (setq oldsnap (getvar "osmode"))
 ;save snap settings
 (setq oldblipmode (getvar "blipmode"))
 ;save blipmode setting
 (setvar "cmdecho" 0)
 (setvar "INSUNITS" 4)
 ;*
 ;Switch OFF system Variables
 (setvar "osmode" 0)
 ;Switch OFF snap
 (setvar "blipmode" 0)
 ;Switch OFF Blipmode
 ;*
 ;get User Inputs
 ;get User Inputs
 (setq b (getdist "\nWidth of the cabinet : "))
 ;Width of the cabinet
 (setq h (getdist "\nHight of the cabinet : "))
 ;Hight of the cabinet
 (setq d (getdist "\nDepth of the cabinet : "))
 ;Depth of the cabinet
 (setq m (getdist "\nMaterialthickness of the cabinet : "))
 ;Materialthicknes of the cabinet
 ;*
 ;Get Insertion Point
 (setq ip (getpoint "\nInsertion Point : "))
 ;get the insertion point
 (setvar "osmode" 32)
 ;switch ON snap
 (setvar "osmode" 0)
 ;switch OFF snap
 ;*
 ;Start of Polar Calculations
 ;This are calculation made by MR Cad
 (setq p1 (polar ip (dtr 0.0) 0.0))
 (setq p2 (polar p1 (dtr 0.0) m))
 (setq p3 (polar p1 (dtr 0.0) b))
 (setq p4 (polar p3 (dtr 180.0) m))
 (setq p5 (polar p1 (dtr -90.0) d))
 (setq p6 (polar p5 (dtr 0.0) m))
 (setq p7 (polar p5 (dtr 0.0) b))
 (setq p8 (polar p7 (dtr 180.0) m))
 (setq p9 (list (car p1) (cadr p1) (+ (caddr p1) m)))
 (setq p10 (list (car p4) (cadr p4)(+ (caddr p4) m)))
 (setq p11 (polar p9 (dtr -90.0) d))
 (setq p12 (polar p10 (dtr -90.0) d))
 (setq p13 (list (car p2) (cadr p2) (+ (caddr p2) h)))
 (setq p14 (list (car p4) (cadr p4)(+ (caddr p4) h)))
 (setq p15 (polar p13 (dtr -90.0) d))
 (setq p16 (polar p14 (dtr -90.0) d))
 (setq p17 (list (car p13) (cadr p13) (- (caddr p13) m)))
 (setq p18 (list (car p14) (cadr p14) (- (caddr p14) m)))
 (setq p19 (list (car p15) (cadr p15) (- (caddr p15) m)))
 (setq p20 (list (car p16) (cadr p16) (- (caddr p16) m)))
 ;End of the Polar calculations by MR. CAD
 ;*
 ;Start Command Function
 (command "_-view" "_swiso"
) ;End command
 (command "ucs" "w" 
) ;End command
(command "box" p1 p6 h)
;  (setq p1 '(10 10 0))
;  (command "_SOLID" '(10 10 0) '(20 10 0) '(10 20 0) '(20 20 0) "")
 (setq fe (entlast))
 (setq bc 1 bn "Leftside1")
 (while (tblsearch "BLOCK" bn)
        (setq bc (1+ bc) bn (strcat "Leftside" (itoa bc))))
 (entmake (list (cons 0 "BLOCK")(list 10 0 0 0)(cons 2 bn)(cons 70 2)))
 (entmake (entget fe))
;*********************************************************************************
 (entmake (list (cons 0 "ATTDEF")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) "Leftside"
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 3 "Leftside")
                (cons 2 "Name:")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 74 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************
   (entmake (list (cons 0 "ATTDEF")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) " "
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 3 "Hight1")
                (cons 2 "Hight")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 74 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************
  (entmake (list (cons 0 "ATTDEF")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) " "
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 3 "Widht1")
                (cons 2 "Widht")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 74 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************
  (entmake (list (cons 0 "ATTDEF")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) " "
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 3 "Thickness1")
                (cons 2 "Thickness")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 74 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************
 (entmake (list (cons 0 "ENDBLK")(cons 8 "0")))
 (entdel fe)
 (entmake (list (cons 0 "INSERT")(cons 2 bn)(cons 10 '(0 0 0))(cons 66 1)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************
 (entmake (list (cons 0 "ATTRIB")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) "Leftside"
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 2 "Name:")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 73 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************  
 (entmake (list (cons 0 "ATTRIB")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) " "
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 2 "Hight")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 73 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
 ;*********************************************************************************
 (entmake (list (cons 0 "ATTRIB")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) " "
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 2 "Widht")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 73 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
;*********************************************************************************
  (entmake (list (cons 0 "ATTRIB")
                (cons 8 "0")
                (cons 10 '(0 0 0))
                (cons 11 '(0 0 0))
                (cons 40 1)
                (cons 1 (strcat "(" (rtos (car p1) 2 0) " "
                                    (rtos (cadr p1) 2 0) " "
                                    (rtos (caddr p1) 2 0) ")"))
                (cons 2 "Thickness")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 73 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER")))
 ;*********************************************************************************
 (entmake (list (cons 0 "SEQEND")(cons 8 "0"))
) ;End Command
 (command "zoom" "a"
) ;End Command
 ;End of Commands made by MR. CAD
 (setvar "osmode" 32)
 ;switch ON snap
 ;*
 ;Reset System Variable
 (setvar "osmode" oldsnap)
 ;Reset snap
 (setvar "blipmode" oldblipmode)
 ;Reset blipmode
 ;*
 (princ)
 ;finish cleanly
 ) ;end of defun
;*
;This function converts Degrees to Radians.
(defun dtr (x)
 ;define degrees to radians function
 (* pi (/ x 180.0))
 ;divide the angle by 180 then
 ;multiply the result by the constant PI
) ;End of function
;*
(princ) ;load cleanly
;*
;;HOPE THIS LISP WILL BE FUNCTIONAL FOR THE USER
;;MADE BY MR. CAD
;;END LISP

(rtos (- b m m) 2)
or
(rtos (- b (* m 2)) 2)

(command "box" .....)
(setq fe (entlast))  ;;;first entity
(command "box" .....)
(setq se (entlast))  ;;;second entity
(command "box" .....)
(setq te (entlast))  ;;;third entity

(entmake (entget fe))
(entmake (entget se))
(entmake (entget te))

(entdel fe)
(entdel se)
(entdel te)