一个打叉的。
- (defun c:tt ()
- (if (and (setq p1 (getpoint "\n第一点 :"))
- (setq p2 (getcorner p1 "\n另一点 :"))) (progn
- (setq p3 (list (car p1) (cadr p2))
- p4 (list (car p2) (cadr p1)))
- (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2) '(8 . "作废")))
- (entmake (list '(0 . "LINE") (cons 10 p3) (cons 11 p4) '(8 . "作废")))
- ))
- (princ)
- )
一个填充的。
- (defun c:tt ()
- (if (and (setq p1 (getpoint "\n第一点 :"))
- (setq p2 (getcorner p1 "\n另一点 :"))) (progn
- (setq p3 (list (car p1) (cadr p2))
- p4 (list (car p2) (cadr p1)))
- (entmake
- (list
- '(0 . "SOLID")
- '(8 . "作废")
- (cons 10 p1)
- (cons 11 p4)
- (cons 12 p3)
- (cons 13 p2)
- )
- )
- ))
- (princ)
- )
|