Scribd
Upload
7 views

3DFAC

Create 3D face

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
7 views

3DFAC

Create 3D face

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

; *****************************************************************

; 3DFAC.LSP
;
; To draw 3Dface with pick point or diagonal corner option.
; *****************************************************************
;
(Defun C:3DFAC (/ p1 p2 p3 p4)
(setq oler *error*
*error* myerr)
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq ot (getvar "orthomode"))
(setvar "orthomode" 1)
(setvar "osmode" 33)
(setq p1 (getpoint "\nStarting corner for 3D face pane <Exit>: "))
(if (/= p1 nil)
(progn
(initget 6)
(setq p3 (getcorner p1 "\nDiagonal corner or <Pick points>: "))
(if (/= p3 nil)
(progn
(setvar "osmode" 0)
(setq p2 (list (car p3) (cadr p1) (caddr p1)))
(setq p4 (list (car p1) (cadr p3) (caddr p1)))
(command "3dface" p1 p2 p3 p4 "")
)
(progn
(setvar "osmode" 33)
(command "3dface" p1)
)
)
)
)
(setvar "cmdecho" cm)
(setvar "osmode" os)
(setvar "orthomode" ot)
(setvar "highlight" 1)
(princ)
)

You might also like