[求助]：如何用entmake创建一个复杂图元的带属性的块?

james_scott · 发表于 2002-9-5 14:09:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用entmake创建一个复杂图元的带属性的块?:1 :a :c

长清 · 发表于 2002-9-6 15:16:06

1  做块block
2  做insert

注意属性标志的组码。
我那个写坐标的程序就是用ENTMAKE把坐标搞成的无名属性块。

下载后用一下，查看一下标注的坐标的各个组码，就知道该怎样写了。

从结构上看，是比较全的：文字、多段线、属性都有。

下载  [url]http://inlayout.com/product/sitecoord/sitecoordsetup.exe[/URL]

eachy · 发表于 2002-9-7 00:38:05

这样生成的块的属性在2002中只能用ddatte编辑，双击时提示没有属性？

(defun $yb_mkunblk (p1 p2 str1 str2 $angle str
/ lst0 lst1 blkn lx pt3
pa2 pa3 $yb_mkattrib
)
(defun drop (lst item)
(append (reverse (cdr (member item (reverse lst))))
(cdr (member item lst))
)
)
;;生成Attdef 或 attrib
(defun $yb_mkattrib (p str $angle code1 code2 tf)
(list (cons 0
(if tf
"ATTDEF"
"ATTRIB"
)
)
'(100 . "AcDbEntity")
'(67 . 0) ;模型空间
'(8 . "0") ;图层
'(100 . "AcDbText")
(cons 10 p) ;文字起点
(cons 40 h) ;字高
(cons 1 str) ;缺省值
(CONS 100
(IF TF
"AcDbAttributeDefinition"
"AcDbAttribute"
)
)
(cons 2 (substr str 1 1))
'(70 . 8)
'(73 . 0)
(cons 50 $angle) ;旋转角
'(41 . 0.75) ;宽度因子
'(51 . 0.0) ;倾角
'(7 . "z") ;字体样式
'(71 . 0) ;文字生成标志
(cons 72 code1)
(cons 74 code2)
(cons 11
(if (/= (+ code1 code2) 0)
p
'(0.0 0.0 0.0)
)
) ;对齐点
'(210 0.0 0.0 1.0) ;拉伸方向
(if tf
(cons 3 (substr str 1 1))
)
)
)
(entmake
(list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 p1))
)
(entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(8 . "0")
'(100 . "AcDbPolyline")
'(90 . 3)
(cons 10 p1)
(cons 10 p2)
(cons 10 pt3)
'(210 0.0 0.0 1.0)
)
)
(setq blkn (entmake '((0 . "ENDBLK"))))
(setq lst0 (list '(0 . "INSERT")
'(100 . "AcDbEntity")
(cons 8 (getvar "clayer"))
'(100 . "AcDbBlockReference")
'(66 . 1)
(cons 10 p1)
'(41 . 1.0)
'(42 . 1.0)
'(43 . 1.0)
'(50 . 0.0)
'(70 . 0)
'(71 . 0)
'(44 . 0.0)
'(45 . 0.0)
'(210 0.0 0.0 1.0)
)
)
(setq lst1 (append lst0 (list (cons 2 blkn))))
(entmake lst1)
;;引用属性
(entmake (drop ($yb_mkattrib pa2 px $angle 0 0 nil) nil))
)

(defun $yb_mkunblk (p1            p2            str1    str2    $angle  str 
                    /            lst0    lst1    blkn    lx            pt3 
                    pa2            pa3            $yb_mkattrib 
                   ) 
  (defun drop (lst item) 
    (append (reverse (cdr (member item (reverse lst)))) 
            (cdr (member item lst)) 
    ) 
  ) 
  ;;生成Attdef 或 attrib 
  (defun $yb_mkattrib (p str $angle code1 code2 tf) 
    (list (cons        0 
                (if tf 
                  "ATTDEF" 
                  "ATTRIB" 
                ) 
          ) 
          '(100 . "AcDbEntity") 
          '(67 . 0)                        ;模型空间 
          '(8 . "0")                        ;图层 
          '(100 . "AcDbText") 
          (cons 10 p)                        ;文字起点 
          (cons 40 h)                        ;字高 
          (cons 1 str)                        ;缺省值 
          (CONS        100 
                (IF TF 
                  "AcDbAttributeDefinition" 
                  "AcDbAttribute" 
                ) 
          ) 
          (cons 2 (substr str 1 1)) 
          '(70 . 8) 
          '(73 . 0) 
          (cons 50 $angle)                ;旋转角 
          '(41 . 0.75)                        ;宽度因子 
          '(51 . 0.0)                        ;倾角 
          '(7 . "z")                        ;字体样式 
          '(71 . 0)                        ;文字生成标志 
          (cons 72 code1) 
          (cons 74 code2) 
          (cons        11 
                (if (/= (+ code1 code2) 0) 
                  p 
                  '(0.0 0.0 0.0) 
                ) 
          )                                ;对齐点 
          '(210 0.0 0.0 1.0)                ;拉伸方向 
          (if tf 
            (cons 3 (substr str 1 1)) 
          ) 
 
    ) 
  ) 
  (entmake 
    (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 p1)) 
  ) 
  (entmake (list '(0 . "LWPOLYLINE") 
                 '(100 . "AcDbEntity") 
                 '(8 . "0") 
                 '(100 . "AcDbPolyline") 
                 '(90 . 3) 
                 (cons 10 p1) 
                 (cons 10 p2) 
                 (cons 10 pt3) 
                 '(210 0.0 0.0 1.0) 
           ) 
  ) 
  (setq blkn (entmake '((0 . "ENDBLK")))) 
  (setq        lst0 (list '(0 . "INSERT") 
                   '(100 . "AcDbEntity") 
                   (cons 8 (getvar "clayer")) 
                   '(100 . "AcDbBlockReference") 
                   '(66 . 1) 
                   (cons 10 p1) 
                   '(41 . 1.0) 
                   '(42 . 1.0) 
                   '(43 . 1.0) 
                   '(50 . 0.0) 
                   '(70 . 0) 
                   '(71 . 0) 
                   '(44 . 0.0) 
                   '(45 . 0.0) 
                   '(210 0.0 0.0 1.0) 
             ) 
  ) 
  (setq lst1 (append lst0 (list (cons 2 blkn)))) 
  (entmake lst1) 
  ;;引用属性 
  (entmake (drop ($yb_mkattrib pa2 px $angle 0 0 nil) nil)) 
)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用entmake创建一个复杂图元的带属性的块?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

就这样简单(假定你熟悉DXF）。