[原创]：利用entmake制作图块

david96007

捣鼓了一晚上，终于利用entmake做了一个标高符号的块！
欢迎交流！

2. 
   
3. (defun c:tt ()
   
4.   (setq        pt  '(0 0 0)
   
5.         pt1 (polar (polar pt pi 2.5) (* 0.5 pi) 2.5)
   
6.         pt2 (polar (polar pt 0 2.5) (* 0.5 pi) 2.5)
   
7.         pt3 (polar (polar pt (* 0.5 pi) 2.5) 0 15)
   
8.   )
   
9.   (entmake (list '(0 . "BLOCK")
   
10.                  '(2 . "blkname")
    
11.                  '(70 . 0)
    
12.                  (cons 10 pt)
    
13.            )
    
14.   )
    
15.   (entmake (list '(0 . "line") (cons 10 pt) (cons 11 pt1)))
    
16.   (entmake (list '(0 . "line") (cons 10 pt) (cons 11 pt2)))
    
17.   (entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt3)))
    
18.   (entmake '((0 . "endblk")))
    
19. )
    

<br /> (defun c:tt ()<br />   (setq        pt  '(0 0 0)<br />         pt1 (polar (polar pt pi 2.5) (* 0.5 pi) 2.5)<br />         pt2 (polar (polar pt 0 2.5) (* 0.5 pi) 2.5)<br />         pt3 (polar (polar pt (* 0.5 pi) 2.5) 0 15)<br />   )<br />   (entmake (list '(0 . "BLOCK")<br />                  '(2 . "blkname")<br />                  '(70 . 0)<br />                  (cons 10 pt)<br />            )<br />   )<br />   (entmake (list '(0 . "line") (cons 10 pt) (cons 11 pt1)))<br />   (entmake (list '(0 . "line") (cons 10 pt) (cons 11 pt2)))<br />   (entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt3)))<br />   (entmake '((0 . "endblk")))<br /> )<br />