cad加天正插件创建天正对象

zlg258369

只要加载过天正的插件，就能创建了。
下面是标高的例子：

2. (DEFUN C:ch5 () ;创建天正标高
   
3. 
   
4. (setq pt (getpoint "\n指定插入点: "))
   
5. (entmake (list '(0 . "TCH_ELEVATION")
   
6.                '(100 . "AcDbEntity")
   
7.                '(8 . "PUB_DIM")
   
8.                '(100 . "TDbEntity")
   
9.                '(47 . 50.0);出图比例
   
10.                '(100 . "TDbSymbWithText")
    
11.                '(40 . 3.5)
    
12.                '(7 . "_TCH_DIM")
    
13.                '(410 . "PUB_TEXT")
    
14.                '(100 . "TDbSymbElevation")
    
15.                (cons 10 pt)
    
16.                '(1 . "10");标高数值
    
17.          )
    
18. )
    
19. )

(DEFUN C:ch5 () ;创建天正标高<br /> <br /> (setq pt (getpoint "\n指定插入点: "))<br /> (entmake (list '(0 . "TCH_ELEVATION")<br />                '(100 . "AcDbEntity")<br />                '(8 . "PUB_DIM")<br />                '(100 . "TDbEntity")<br />                '(47 . 50.0);出图比例<br />                '(100 . "TDbSymbWithText")<br />                '(40 . 3.5)<br />                '(7 . "_TCH_DIM")<br />                '(410 . "PUB_TEXT")<br />                '(100 . "TDbSymbElevation") <br />                (cons 10 pt)<br />                '(1 . "10");标高数值<br />          )<br /> )<br /> )

该贴已经同步到 zlg258369的微博

magnet52123

标注一下 慢慢看

czb203

感觉很不错的谢谢楼主啊

zqb05

怎么用？
什么功能

libo2000

能否贴出其他天正图元的创建方式？

长风（尚品）

不要小数位改那里

chlh_jd

不同版本差异挺大的，不能通用的对象数据或者说不够稳定的对象数据格式，去写的意义不大，代价挺大

userzhl

如何判断是否加载天正？

c735023723

czb203 发表于 2011-11-18 19:57
感觉很不错的谢谢楼主啊

不错，呵呵

jicqj

有点意思。谢谢提供思路。

yybu

天正2013中没创建成功