为何CAD2007-以上版本INSERT的ATTRIB跟随不能超过1个

树櫴希德 · 发表于 2015-7-20 21:58:30

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

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

×

为何CAD2007-以上版本INSERT的ATTRIB跟随不能超过1个

用ENTMAKE的方法

;;;插入块
(entmake (list
'(0 . "INSERT")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
'(66 . 1);;;属性跟随标志,1跟随，0不跟随
(cons 2 "GC200")
(cons 10 inspt)
(cons 41 scale)
(cons 42 scale)
(cons 43 scale)
(list -3 '("SOUTH" (1000 . "951495418")))
)
)
;;;插入属性
(entmake (list
'(0 . "ATTdef")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 10 (setq pt (polar inspt 0 (* 1.2 scale))))
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height)
(cons 7 "HZ")
(cons 72 2)
(cons 11 pt)
'(100 . "AcDbAttributeDefinition")
(cons 3 "height")
(cons 2 height)
(cons 70 0)
(cons 74 1)
)
)
;;;;;;;;
(entmake (list
'(0 . "ATTdef")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 62 2)
(cons 10 pt)
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height2)
(cons 7 "HZ")
(cons 72 0)
(cons 11 pt)
'(100 . "AcDbAttributeDefinition")
(cons 3 "height2")
(cons 2 height2)
(cons 70 0)
(cons 74 3)
))
;;;;;;;;;;;;
(entmake (list
'(0 . "ATTdef")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 62 3)
(cons 10 pt)
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height3)
(cons 7 "HZ")
(cons 72 0)
(cons 73 2)
(cons 11 pt)
'(100 . "AcDbAttributeDefinition")
(cons 3 "height3")
(cons 2 height3)
(cons 70 0)
(cons 74 1)
))
;;;;;;
(entmake (list
'(0 . "ATTdef")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 62 3)
(cons 10 (setq pzx0 (polar pt (* 1.5 pi) (* 2 scale))))
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height4)
(cons 7 "HZ")
(cons 72 0)
(cons 73 2)
(cons 11 pzx0)
'(100 . "AcDbAttributeDefinition")
(cons 3 "height4")
(cons 2 height4)
(cons 70 0)
(cons 74 3)
))
;;;结束标志
(entmake '((0 . "seqend")))

;;;插入块 
  (entmake (list 
       
             '(0 . "INSERT") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbBlockReference") 
             '(66 . 1);;;属性跟随标志,1跟随，0不跟随 
              (cons 2 "GC200") 
              (cons 10 inspt) 
              (cons 41 scale) 
              (cons 42 scale) 
              (cons 43 scale) 
              (list -3 '("SOUTH" (1000 . "951495418"))) 
           ) 
  ) 
  ;;;插入属性 
  (entmake (list 
             '(0 . "ATTdef") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbText") 
              (cons 10 (setq pt (polar inspt 0 (* 1.2 scale)))) 
              (cons 40 (* 2.0 scale)) 
              (cons 50 0) 
              (cons 41 0.8) 
              (cons 51 0) 
              (cons 1 height) 
              (cons 7 "HZ") 
              (cons 72 2) 
              (cons 11 pt) 
              '(100 . "AcDbAttributeDefinition") 
       (cons 3 "height") 
              (cons 2 height) 
              (cons 70  0) 
              (cons 74 1) 
           ) 
   ) 
;;;;;;;; 
  (entmake (list 
             '(0 . "ATTdef") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbText") 
        (cons 62 2) 
              (cons 10 pt) 
              (cons 40 (* 2.0 scale)) 
              (cons 50 0) 
              (cons 41 0.8) 
              (cons 51 0) 
              (cons 1 height2) 
              (cons 7 "HZ") 
              (cons 72 0) 
              (cons 11 pt) 
              '(100 . "AcDbAttributeDefinition") 
              (cons 3 "height2") 
       (cons 2 height2) 
              (cons 70  0) 
              (cons 74 3) 
           )) 
  ;;;;;;;;;;;; 
  (entmake (list 
             '(0 . "ATTdef") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbText") 
       (cons 62 3) 
              (cons 10 pt) 
              (cons 40 (* 2.0 scale)) 
              (cons 50 0) 
              (cons 41 0.8) 
              (cons 51 0) 
              (cons 1 height3) 
              (cons 7 "HZ") 
              (cons 72 0) 
        (cons 73 2) 
              (cons 11 pt) 
              '(100 . "AcDbAttributeDefinition") 
              (cons 3 "height3") 
       (cons 2 height3) 
              (cons 70  0) 
              (cons 74 1) 
           )) 
  ;;;;;; 
(entmake (list 
             '(0 . "ATTdef") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbText") 
       (cons 62 3) 
              (cons 10 (setq pzx0 (polar pt (* 1.5 pi) (* 2 scale)))) 
              (cons 40 (* 2.0 scale)) 
              (cons 50 0) 
              (cons 41 0.8) 
              (cons 51 0) 
              (cons 1 height4) 
              (cons 7 "HZ") 
              (cons 72 0) 
        (cons 73 2) 
              (cons 11 pzx0) 
              '(100 . "AcDbAttributeDefinition") 
       (cons 3 "height4") 
              (cons 2 height4) 
              (cons 70  0) 
              (cons 74 3) 
           )) 
   ;;;结束标志 
(entmake '((0 . "seqend")))

csharp · 发表于 2015-7-20 23:27:02

和insert一起的是attrib，非attdef

树櫴希德 · 发表于 2015-7-21 09:59:07

csharp 发表于 2015-7-20 23:27
和insert一起的是attrib，非attdef

(gc)
(vl-load-com)
;;;;;;;;;;;;;;;;;;;;
(defun xd:List->VariantArray (lst)
(vlax-Make-Variant
(vlax-SafeArray-Fill
(vlax-Make-SafeArray
vlax-vbDouble
(cons 0 (- (length lst) 1))
)
lst
)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun list->variantArray (ptsList / arraySpace sArray)
(setq arraySpace
(vlax-make-safearray
vlax-vbdouble
(cons 0 (- (length ptsList) 1))
)
)
(setq sArray (vlax-safearray-fill arraySpace ptsList))
(vlax-make-variant sArray)
)
;;;;;;;;;;;;;;
(defun FY:acBlocks nil
(eval (list 'defun
'FY:acBlocks
'nil
(vla-get-blocks (FY:acdoc))
)
)
(FY:acBlocks)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun fy:acspace nil
(if (zerop (getvar "tilemode"))
(vla-get-**space (fy:acdoc))
(fy:acms)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun FY:acMs nil
(eval (list 'defun
'FY:acMs
'nil
(vla-get-modelspace (FY:acdoc))
)
)
(FY:acMs)
)
;;;;;;;;;;;;;;;;;;;;;;;;;
(defun Fy:acDoc nil
(eval (list 'defun
'FY:acdoc
'nil
(vla-get-activedocument (vlax-get-acad-object))
)
)
(fy:acdoc)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun Make** (inspt height scale height2 height3
height4 / addattribute pt
blkdef obj
)
;;((blkdef height prompt point tag)..)
(defun addattribute (lst /)
(mapcar '(lambda (x)
(vla-addattribute
(car x)
(cadr x)
acAttributeModePreset
(caddr x)
(vlax-3d-point (cadddr x))
(last x)
""
)
)
lst
)
)
(setvar "CMDECHO" 0)
(command "layer" "m" "tfzj" "c" "1" "" "L" "CONTINUOUS" "" "")
(regapp "SOUTH")
;;检查字体 "HZ" 是否存在
(if (not (tblobjname "style" "HZ"))
(command "style" "HZ" "rs.shx,hztxt.shx" 0 1 0 "" "" "")
)
;;检查是否存在高程点图块定义
(if (not (tblobjname "block" "GC200"))
(progn
(setq blkdef (vla-Add (fy:acblocks)
(vlax-3D-point '(0 0 0))
"GC200"
)
obj (vla-AddPolyline
blkdef
(list->variantarray
'(-0.2 0 0 0.2 0 0)
vlax-vbdouble
)
)
)
(vla-SetBulge obj 0 1)
(vla-SetBulge obj 1 1)
(vla-put-Closed obj :vlax-true)
(vla-put-ConstantWidth obj 0.4)
(addattribute
(list (list blkdef height "height" '(0. 0. 0.) "height")
(list blkdef height2 "height2" '(1.2 0. 0.) "height2")
(list blkdef height3 "height3" '(2.0 0. 0.) "height3")
(list blkdef height4 "heihgt4" '(1.2 1.2 0.) "height4")
)
)
)
)
;;InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation
(setq blkref (vla-insertblock
(fy:acspace)
(vlax-3d-point inspt)
"GC200"
scale
scale
scale
0.
)
)
(mapcar '(lambda (x y)
(vla-put-textstring x y)
)
(vlax-invoke blkref 'Getattributes);
(list height height2 height3 height4)
)
(entmod (append (entget (entlast))
(list (list -3 '("SOUTH" (1000 . "951495418"))))
)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:pzx (/ str->pt _mktext fl
lst nl _pi2 _3pi
d _Pnts:Center _List:FromFile
String:Split
)
(setq blc (getint "\n请输入比例尺1:"))
(setvar 'userr1 blc);设置比例尺
;(setq zg (* 0.002 blc));字高
(setq scale (* 0.001 blc));缩放比例
(defun String:Split (str delimiter / post strlst stl)
(if str
(progn
(setq stl (strlen delimiter))
(while (vl-string-search delimiter str)
(setq post (vl-string-search delimiter str)
strlst (cons (substr str 1 post) strlst)
str (substr str (+ 1 post stl))
)
)
(reverse (vl-remove "" (cons str strlst)))
)
)
)
(defun _List:FromFile (fn / f l ll)
(if (setq f (open (findfile fn) "r"))
(progn
(while (setq l (read-line f))
(setq ll (cons l ll))
)
(close f)
)
)
ll
)
(defun XD::Pnt:SetZ (p z)
(list (car p) (cadr p) z)
)
(defun str->pt (str)
(XD::Pnt:SetZ
(mapcar 'distof (cdr (String:Split str ",")))
0.
)
)
(defun _Pnts:Center (p1 p2 p3 /)
(mapcar '(lambda (x y z)
(/ (+ x y z) 3.)
)
p1
p2
p3
)
)
(defun _mktext (p str / txt)
(entmake (list '(0 . "Text")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 1 str)
(cons 10 p)
'(40 . 0.1)
'(50 . 0.0)
'(41 . 1.0)
(cons 7 (getvar "textstyle"))
'(71 . 0)
'(72 . 4)
(cons 11 p)
'(73 . 1)
)
)
)
;;;;;;;
(defun getplarea (l)
(* 0.5
(apply
'+
(mapcar
'(lambda (a b) (- (* (car a) (cadr b)) (* (car b) (cadr a))))
l
(append (cdr l) (list (car l)))
)
)
)
)
;;;;;;;
(if (setq fl (getfiled "Select Log file" "" "log" 8))
(progn
(setq lst (_List:FromFile fl)
_pi2 (* pi 0.5)
_3pi (- _pi2)
d 0.1
)
(while lst
(setq nl(cons (list (car lst)
(cadr lst)
(caddr lst)
(nth 3 lst)
(nth 4 lst)
)
nl
)
lst (cddr (cddddr lst))
)
)
(mapcar '(lambda (x / p bh ll )
(setq p(_Pnts:Center
(setq pa (str->pt (cadr x)))
(setq pb (str->pt (caddr x)))
(setq pc (str->pt (cadddr x)))
)
bh (substr (last x) 7)
ll (vl-remove "" (String:Split (car x) " "))
)
(_mktext (polar p _pi2 d) bh)
(_mktext p (strcat (car ll) (cadr ll)))
(_mktext (polar p _3pi d) (strcat (caddr ll) (last ll)))
(_mktext (polar p _3pi (* 2 d)) (strcat "面积:" (rtos (abs (getplarea (list pa pb pc))) 2 3)))
(Make** p bh scale (strcat (car ll) (cadr ll)) (strcat (caddr ll) (last ll)) (strcat "面积:" (rtos (abs (getplarea (list pa pb pc))) 2 3)))
)
nl
)
)
)
(princ)
)

(gc) 
(vl-load-com) 
;;;;;;;;;;;;;;;;;;;; 
(defun xd:List->VariantArray (lst) 
  (vlax-Make-Variant 
    (vlax-SafeArray-Fill 
      (vlax-Make-SafeArray 
        vlax-vbDouble 
        (cons 0 (- (length lst) 1)) 
      ) 
      lst 
    ) 
  ) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;; 
 
(defun list->variantArray (ptsList / arraySpace sArray) 
      (setq arraySpace 
             (vlax-make-safearray 
               vlax-vbdouble 
               (cons 0 (- (length ptsList) 1)) 
             ) 
      ) 
      (setq sArray (vlax-safearray-fill arraySpace ptsList)) 
      (vlax-make-variant sArray) 
    ) 
;;;;;;;;;;;;;; 
(defun FY:acBlocks nil 
  (eval    (list 'defun 
          'FY:acBlocks 
          'nil 
          (vla-get-blocks (FY:acdoc)) 
    ) 
  ) 
  (FY:acBlocks) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun fy:acspace nil 
(if (zerop (getvar "tilemode")) 
    (vla-get-**space (fy:acdoc)) 
    (fy:acms) 
) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun FY:acMs nil 
(eval      (list 'defun 
            'FY:acMs 
            'nil 
            (vla-get-modelspace (FY:acdoc)) 
      ) 
) 
(FY:acMs) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun Fy:acDoc      nil 
(eval      (list 'defun 
            'FY:acdoc 
            'nil 
            (vla-get-activedocument (vlax-get-acad-object)) 
      ) 
) 
(fy:acdoc) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 
 
 
 
(defun Make** (inspt          height    scale   height2      height3 
                height4          /            addattribute      pt 
                blkdef          obj 
               ) 
;;((blkdef height prompt point tag)..) 
(defun addattribute (lst /) 
    (mapcar '(lambda (x) 
               (vla-addattribute 
               (car x) 
               (cadr x) 
               acAttributeModePreset 
               (caddr x) 
               (vlax-3d-point (cadddr x)) 
               (last x) 
               "" 
               ) 
             ) 
            lst 
    ) 
) 
(setvar "CMDECHO" 0) 
(command "layer" "m" "tfzj" "c" "1" "" "L" "CONTINUOUS" "" "") 
(regapp "SOUTH") 
;;检查字体 "HZ" 是否存在 
(if (not (tblobjname "style" "HZ")) 
    (command "style" "HZ" "rs.shx,hztxt.shx" 0 1 0 "" "" "") 
) 
;;检查是否存在高程点图块定义 
(if (not (tblobjname "block" "GC200")) 
    (progn 
      (setq blkdef (vla-Add (fy:acblocks) 
                            (vlax-3D-point '(0 0 0)) 
                            "GC200" 
                   ) 
            obj         (vla-AddPolyline 
                     blkdef 
                     (list->variantarray 
                     '(-0.2 0 0 0.2 0 0) 
                     vlax-vbdouble 
                     ) 
                   ) 
      ) 
      (vla-SetBulge obj 0 1) 
      (vla-SetBulge obj 1 1) 
      (vla-put-Closed obj :vlax-true) 
      (vla-put-ConstantWidth obj 0.4) 
      (addattribute 
      (list (list blkdef height "height" '(0. 0. 0.) "height") 
      (list blkdef height2 "height2" '(1.2 0. 0.) "height2") 
            (list blkdef height3 "height3" '(2.0 0. 0.) "height3") 
            (list blkdef height4 "heihgt4" '(1.2 1.2 0.) "height4") 
      ) 
      ) 
    ) 
) 
;;InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation 
(setq      blkref (vla-insertblock 
               (fy:acspace) 
               (vlax-3d-point inspt) 
               "GC200" 
               scale 
               scale 
               scale 
               0. 
               ) 
) 
(mapcar '(lambda (x y) 
             (vla-put-textstring x y) 
         ) 
          (vlax-invoke blkref 'Getattributes); 
          (list height height2 height3 height4) 
) 
(entmod (append (entget (entlast)) 
                  (list (list -3 '("SOUTH" (1000 . "951495418")))) 
          ) 
) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun c:pzx (/               str->pt   _mktext         fl 
             lst         nl             _pi2         _3pi 
             d               _Pnts:Center               _List:FromFile 
             String:Split 
            ) 
 
(setq blc (getint "\n请输入比例尺1:")) 
(setvar 'userr1 blc);设置比例尺 
;(setq zg (* 0.002 blc));字高 
(setq scale (* 0.001 blc));缩放比例 
 
 
 
(defun String:Split (str delimiter / post strlst stl) 
    (if      str 
      (progn 
      (setq stl (strlen delimiter)) 
      (while (vl-string-search delimiter str) 
          (setq      post   (vl-string-search delimiter str) 
                strlst (cons (substr str 1 post) strlst) 
                str    (substr str (+ 1 post stl)) 
          ) 
      ) 
      (reverse (vl-remove "" (cons str strlst))) 
      ) 
    ) 
) 
(defun _List:FromFile      (fn / f l ll) 
    (if      (setq f (open (findfile fn) "r")) 
      (progn 
      (while (setq l (read-line f)) 
          (setq ll (cons l ll)) 
      ) 
      (close f) 
      ) 
    ) 
    ll 
) 
(defun XD::Pnt:SetZ (p z) 
    (list (car p) (cadr p) z) 
) 
(defun str->pt (str) 
    (XD::Pnt:SetZ 
      (mapcar 'distof (cdr (String:Split str ","))) 
      0. 
    ) 
) 
(defun _Pnts:Center (p1 p2 p3 /) 
    (mapcar '(lambda (x y z) 
               (/ (+ x y z) 3.) 
             ) 
            p1 
            p2 
            p3 
    ) 
) 
(defun _mktext (p str / txt) 
    (entmake (list '(0 . "Text") 
                   '(100 . "AcDbEntity") 
                   '(100 . "AcDbText") 
                   (cons 1 str) 
                   (cons 10 p) 
                   '(40 . 0.1) 
                   '(50 . 0.0) 
                   '(41 . 1.0) 
                   (cons 7 (getvar "textstyle")) 
                   '(71 . 0) 
                   '(72 . 4) 
                   (cons 11 p) 
                   '(73 . 1) 
             ) 
    ) 
) 
;;;;;;; 
(defun getplarea (l) 
(* 0.5 
   (apply 
       '+ 
       (mapcar 
         '(lambda (a b) (- (* (car a) (cadr b)) (* (car b) (cadr a)))) 
         l 
         (append (cdr l) (list (car l))) 
       ) 
   ) 
) 
) 
;;;;;;; 
(if (setq fl (getfiled "Select Log file" "" "log" 8)) 
    (progn 
      (setq lst         (_List:FromFile fl) 
            _pi2 (* pi 0.5) 
            _3pi (- _pi2) 
            d         0.1 
      ) 
      (while lst 
      (setq nl(cons      (list (car lst) 
                              (cadr lst) 
                              (caddr lst) 
                              (nth 3 lst) 
                              (nth 4 lst) 
                        ) 
                        nl 
                  ) 
            lst (cddr (cddddr lst)) 
      ) 
      ) 
(mapcar '(lambda (x / p bh ll ) 
               (setq p(_Pnts:Center 
                            (setq pa (str->pt (cadr x))) 
                            (setq pb (str->pt (caddr x))) 
                            (setq pc (str->pt (cadddr x))) 
                        ) 
                     bh (substr (last x) 7) 
                     ll (vl-remove "" (String:Split (car x) " ")) 
               ) 
               (_mktext (polar p _pi2 d) bh) 
               (_mktext p (strcat (car ll) (cadr ll))) 
               (_mktext (polar p _3pi d) (strcat (caddr ll) (last ll))) 
               (_mktext (polar p _3pi (* 2 d)) (strcat "面积:" (rtos (abs (getplarea (list pa pb pc))) 2 3))) 
               (Make** p bh scale (strcat (car ll) (cadr ll)) (strcat (caddr ll) (last ll)) (strcat "面积:" (rtos (abs (getplarea (list pa pb pc))) 2 3))) 
               ) 
            nl 
      ) 
 
 
 
 
 
 
 
    ) 
) 
(princ) 
)

还是不行啊

csharp · 发表于 2015-7-21 10:23:40

你这又换方向了？
(entmake (0 . “insert”) …)
(entmake (0 . “attrib”) …)
(entmake (0 . "attrib") …)
…
(entmake (0 . "seqend"))

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

[求助] 为何CAD2007-以上版本INSERT的ATTRIB跟随不能超过1个

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

点评

浏览过的版块