[编程交流] 插入前部。。

 
(defun c:front2 ()
 ;Start of Save Settings
 (setq oldsnap (getvar "osmode"))
 (setq oldblipmode (getvar "blipmode"))
 ;end of Save Settings
 
 ;Start of Get User Input
 (setq s (getreal "\nOffset of your front from outside cabinet: "))
 (setq d (getreal "\nThickness of the Front: "))
 (setq h (getreal "\nHeight of the Front: "))
 (setq b (getreal "\nWidth of the Front: "))
 (setq ip (getpoint "\nInsertion Point: "))
 ;End of Get User Input
 (setvar "osmode" 0);Turn off snaps
 (setvar "cmdecho" 1); For debugging purposes???
 ;Start of Polar Calculations
 
 (setq p2 ip) ;ip = p2
 (setq p3 (polar ip 0 b)) ; From p2 to p3 = Width of the Front
 (setq p4 (polar p3 (* 1.5 pi) d)) ; From p3 to p4 = Thickness of the Front
 (setq p5 (list (car p2) (cadr p2) (+ (caddr p2) h))) ; p5 = x & y of p2 and z of p2 + Height of the Front
 (setq p6 (list (car p5) (cadr p5) (- (caddr p5) 160))) ; p6 = x & y of p5 and z of p5 - 160 units
 (setq r1 (list (car p2) (cadr p2) (+ (caddr p2) s))) ; r1 = x & y of p2 and z of p2 + Offset of your front from outside cabinet
 (setq p7 (polar p2 0 s)); From p2 to p7 = Offset of your front from outside cabinet
 (setq p8 (list (car p7) (cadr p7) (+ (caddr p7) s))); p8 = x & y of p7 and z of p7 + Offset of your front from outside cabinet
 (setq p9 (polar r1 0 b));From r1 to p9 = Width of the Front
 (setq p10 (polar p9 pi s)) ;From p9 to p10 = Offset of your front from outside cabinet
 (setq p11 (list (car p7) (cadr p7) (+ (caddr p7) h))); p11 = x & y of p7 and z of p7 + Height of the Front
 (setq p12 (list (car p11) (cadr p11) (- (caddr p11) s))); p12 = x & y of p11 and z of p11 - Offset of your front from outside cabinet
 (setq p13 (polar p10 (* 1.5 pi) d)) ;From p10 to p13 = Thickness of the Front
 ;End of Polar Caclulations
 
 (command "ucs" "w") ;Make sure that the ucs is in world???
 ;This should maybe be before the Get User Inputs???
 
 (command "box" p8 p13 p12)
 ;Create a 3d Solid using p8, p13 & p12
 
 (command "-Insert" "listscharnier" "_non" ip "" "" "0")
 (command "-Insert" "listscharnier" "_non" p6 "" "" "0")
 ;Insert the block at the ip (p2) & p6
 
 ;Start Reset Old Settings
 (setvar "osmode" oldsnap)
 (setvar "blipmode" oldblipmode)
 ;End Reset old Settings
 
 (princ "\nDone!") ;Let User Know Command is finished
 (princ) ; Finish Clean
 )
 
 

 
;Start Polar Computations
(setq p2 (polar ip 0 s))
(setq p3 (list (car p2) (cadr p2) (+ (caddr p2) s)))
(setq p4 (polar p3 (* 1.5 pi) d))
(setq p5 (polar p4 0 b))
(setq p6 (list (car p5) (cadr p5) (+ (caddr p5) h)))
(setq p7 (list (car ip) (cadr ip) (+ (- h 160) (caddr ip))))
;End Polar Computations
:Draw Box Using Points p3, p5 & p6
(command "box" p3 p5 p6)
;End Draw Box
;Insert Hinges Using Point ip & p7
(command "-insert" "listscharnier" "_non" ip "" "" "0"
   "-insert" "listscharnier" "_non" p7 "" "" "0"
)
;End Insert Hinges

 
(defun c:front ()
 ;Begin Save Settings
 (setq oldsnap (getvar "osmode"))
 (setq oldblipmode (getvar "blipmode"))
 ;End Save Settings
 ;Begin Set Settings
 (setvar "osmode" 0)
 (setvar "blipmode" 0)
 (command "ucs" "world")
 ;End Set Settings
 ;Begin User Input
 (setq s (getdist "\Offset of the front:"))=
 (setq d (getdist "\nThickness of the front : "))
 (setq h (getdist "\nHight of the front : "))
 (setq b (getdist "\nWidth of the front : "))
 (setvar "osmode" 32)
 (setq ip (getpoint "\nInsertion Point : "))
 ;End User Input
 ;Begin Set Settings
 (setvar "osmode" 0)
 (setvar "cmdecho" 1)
 ;End Set Settings
 ;Begin Polar Computations
 (setq p2 (polar ip 0 s))
 (setq p3 (list (car p2) (cadr p2) (+ (caddr p2) s)))
 (setq p4 (polar p3 (* 1.5 pi) d))
 (setq p5 (polar p4 0 b))
 (setq p6 (list (car p5) (cadr p5) (+ (caddr p5) h)))
 (setq p7 (list (car ip) (cadr ip) (+ (- h 160) (caddr ip))))
 ;End Polar Computations
 ;Begin Draw Box
 (command "box" p3 p5 p6)
 ;End Draw Box
 ;Begin Define blk-is-loaded
(defun blk_is_loaded (blk-name / blks cnt n I-Name ret )
 (vl-load-com)
 (setq blks (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'Blocks))
 (setq cnt (vlax-get-property blks 'Count))
 (setq n 0)
 (repeat cnt
   (setq I-Name (vlax-get-property (vlax-invoke-method blks 'Item n) 'Name))
   (if (= blk-name I-Name)
(setq ret T)
     (progn
(setq n (+ n 1))
(setq ret nil))
     )
   )(vlax-release-object blks)
 ret
 )
 ;End Define blk-is-loaded
 ;Begin Determine if block is loaded
 ;***If block is not found user is directed to find the file else block is inserted***
 ;NOTE: No error trapping
 (if (not (blk_is_loaded "listscharnier"))
   (progn
     (setq blk-f (getfiled "Find listscharnier Block" "" "dwg" 0))
     (if (= blk-f nil)
(progn (princ "\nUser has Cancelled: Exiting.")
  (exit)))
     (command "-Insert" blk-f "_non" ip "" "" "0")
     (command "-Insert" blk-f "_non" p7 "" "" "0")
     )
   (command "-Insert" "listscharnier" "_non" ip "" "" "0"
     "-Insert" "listscharnier" "_non" p7 "" "" "0")
   )
 ;End Determine if block is loaded
 ;Begin Reset Old Settings
 (setvar "osmode" oldsnap)
 (setvar "blipmode" oldblipmode)
 ;End Reset Old Settings
 [color="Red"](princ (strcat "\nDimensions Entered for Front: \nOffset = " (rtos s 2 2) "\nThickness = " (rtos d 2 2) "\nHeight = " (rtos h 2 2)
      "\nWidth = " (rtos b 2 2) ) )[/color]
 (princ)
)