entmake创建图元必要条件(慢慢更新)

柱哥

学习一下，谢谢！

5d95286278

chakanneirongxuhaohuifukejian

LIULISHENG

这个很不错的

lxg3443

学习 看看有没有标注的

zhhunicorn

楼主辛苦了

943528397

good good good good

zxc_Ok

ntmake创建图元较command速度快，且不受捕捉等CAD环境因素影响，因此优先选用entmake。
entmake创建图元必要条件，即创建图元的最少组码项，再少就无法正确创建图元，实际使用中需要颜色、图层等组码项自己添加。水平有限，欢迎拍砖。

xyp1964

2. ;; abc 带扩展数据的圆 (abc (getpoint) 2.5 "J" 1)
   
3. (defun abc (pt rr qz xh)
   
4.   (entmake (list '(0 . "CIRCLE")
   
5.                  '(100 . "AcDbEntity")
   
6.                  ;(cons 8 "JZP")
   
7.                  '(100 . "AcDbCircle")
   
8.                  (cons 10 pt)
   
9.                  (cons 40 rr)
   
10.                  (list -3
    
11.                        (list "SOUTH"
    
12.                              '(1000 . "301000")
    
13.                              (cons 1000 qz)
    
14.                              (cons 1071 xh)
    
15.                        )
    
16.                  )
    
17.            )
    
18.   )
    
19. )

;; abc 带扩展数据的圆 (abc (getpoint) 2.5 "J" 1)<br /> (defun abc (pt rr qz xh)<br />   (entmake (list '(0 . "CIRCLE")<br />                  '(100 . "AcDbEntity")<br />                  ;(cons 8 "JZP")<br />                  '(100 . "AcDbCircle")<br />                  (cons 10 pt)<br />                  (cons 40 rr)<br />                  (list -3<br />                        (list "SOUTH"<br />                              '(1000 . "301000")<br />                              (cons 1000 qz)<br />                              (cons 1071 xh)<br />                        )<br />                  )<br />            )<br />   )<br /> )

lucas_3333

xyp1964 发表于 2015-9-11 07:58

1001 组中有无效的的应用程序名
这样也不行,啥情况?

1. ;; abc 带扩展数据的圆 (abc (getpoint) 2.5 "J" 1)
   
2. (defun abc (pt rr qz xh)
   
3.         (entmake (list '(0 . "CIRCLE")
   
4.                 '(100 . "AcDbEntity")
   
5.                 ;(cons 8 "JZP");;图层
   
6.                 '(100 . "AcDbCircle")
   
7.                 (cons 10 pt);;中心点
   
8.                 (cons 40 rr);;半径
   
9.                 (list -3
   
10.                         (list "SOUTH"
    
11.                                 '(1002 . "{")
    
12.                                 '(1000 . "301000")
    
13.                                 (cons 1000 qz)
    
14.                                 (cons 1071 xh)
    
15.                                 '(1002 . "}")
    
16.                         )
    
17.                 )
    
18.         )
    
19.         )
    
20. )
    

;; abc 带扩展数据的圆 (abc (getpoint) 2.5 "J" 1)<br /> (defun abc (pt rr qz xh)<br />         (entmake (list '(0 . "CIRCLE")<br />                 '(100 . "AcDbEntity")<br />                 ;(cons 8 "JZP");;图层<br />                 '(100 . "AcDbCircle")<br />                 (cons 10 pt);;中心点<br />                 (cons 40 rr);;半径<br />                 (list -3<br />                         (list "SOUTH"<br />                                 '(1002 . "{")<br />                                 '(1000 . "301000")<br />                                 (cons 1000 qz)<br />                                 (cons 1071 xh)<br />                                 '(1002 . "}")<br />                         )<br />                 )<br />         )<br />         )<br /> )<br />

xyp1964

lucas_3333 发表于 2015-9-11 11:05
1001 组中有无效的的应用程序名
这样也不行,啥情况?

要先注册： (regapp "SOUTH")