请教怎么通过entmake天正里的图块啊？

wmz · 发表于 2014-10-6 11:22

本帖最后由 wmz 于 2014-10-6 12:10 编辑

(defun c:cs()
(command "layer" "m" "EQUIP-照明" "c" "4" "" "L" "CONTINUOUS" "" "")
(command "style" "宋体" "宋体" 0 1 0 "N" "N")
(regapp "light")
(setq pt (getpoint "\n请输入插入点"))
(command "_.insert" "$equip$00002539" pt 1 1 0)
(setq ent (entlast))
(command "erase" ent "")
(setq bl 1.0 JD 0.0 A "灯")
(MYSERTS pt bl JD A)
)
<blockquote>;;;插入块

伪书虫86 · 发表于 2014-10-6 12:10

wmz 发表于 2014-10-6 11:22

哇哦，刚在你的代码稍微调整了下，已经达到我想要的了，太感谢你了，之前都准备放弃entmake了

真是太感谢了o(∩_∩)o
昨天后来又发了一个悬赏帖http://bbs.mjtd.com/thread-111645-1-1.html还麻烦你进去拿一下啊，不能放那儿浪费了

伪书虫86 · 发表于 2014-10-6 12:13

ludaweb 发表于 2014-10-6 10:19
别折腾了，就算效率慢也比自己一个一个弄的快，只是视觉上有个生成的过程，这个没啥，不影响使用，程序稳定 ...

赶紧看21#，有大师帮解决了

wmz · 发表于 2014-10-6 12:25

伪书虫86 发表于 2014-10-6 12:10
哇哦，刚在你的代码稍微调整了下，已经达到我想要的了，太感谢你了，之前都准备放弃entmake了真是太 ...

(defun c:cs()
(command "layer" "m" "EQUIP-照明" "c" "4" "" "L" "CONTINUOUS" "" "")
(command "style" "宋体" "宋体" 0 1 0 "N" "N")
(regapp "light")
(setq pt (getpoint "\n请输入插入点"))
(command "_.insert" "$equip$00002539-1" pt 1 1 0)
(setq ent (entlast))
(command "erase" ent "")
(setq bl 1.0 JD 0.0 A "灯")
(MYSERTS pt bl JD A)
)
;;;插入块
(defun MYSERTS (pt BL JD A / p ptz)
(setq ptz (polar pt 0.0 350.0))
(setq pt (list (- (car pt) 43054) (- (cadr pt) 12796)))
(entmake (list
'(0 . "INSERT")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
'(66 . 1);;;属性跟随标志,1跟随，0不跟随
(cons 2 "$equip$00002539")
(cons 8 "EQUIP-照明")
(cons 10 pt)
(cons 41 BL)
(cons 42 BL)
(cons 43 BL)
(cons 50 JD)
'(-3 ("light" (1000 . "T")))
)
)
;;;插入属性
(entmake (list
'(0 . "ATTRIB")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 10 ptz)
(cons 40 (* 500.0 BL))
(cons 50 JD)
(cons 41 0.8)
(cons 51 0)
(cons 1 A)
(cons 7 "宋体")
(cons 72 0) ;;左对齐
(cons 11 ptz)
'(100 . "AcDbAttribute")
(cons 2 "A")
(cons 70 0)
(cons 73 0)
(cons 74 2)
)
)
;;;结束标志
(entmake '((0 . "SEQEND")))
(princ)
)

(defun c:cs() 
       (command "layer" "m" "EQUIP-照明" "c" "4" "" "L" "CONTINUOUS" ""  "") 
       (command "style" "宋体" "宋体" 0 1 0 "N" "N") 
       (regapp "light") 
       (setq pt (getpoint "\n请输入插入点")) 
      (command "_.insert" "$equip$00002539-1" pt 1 1 0) 
        (setq ent (entlast)) 
      (command "erase" ent "") 
      (setq bl 1.0 JD 0.0 A "灯") 
      (MYSERTS pt bl JD A) 
)   
;;;插入块 
(defun MYSERTS (pt BL JD A / p ptz) 
  (setq ptz (polar pt 0.0 350.0)) 
  (setq pt (list (- (car pt) 43054) (- (cadr pt) 12796))) 
  (entmake (list 
             '(0 . "INSERT") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbBlockReference") 
             '(66 . 1);;;属性跟随标志,1跟随，0不跟随 
             (cons 2 "$equip$00002539") 
            (cons 8 "EQUIP-照明") 
             (cons 10 pt) 
             (cons 41 BL) 
             (cons 42 BL) 
             (cons 43 BL) 
             (cons 50 JD) 
             '(-3 ("light" (1000 . "T"))) 
           ) 
  ) 
   
  ;;;插入属性 
    (entmake (list 
            '(0 . "ATTRIB") 
            '(100 . "AcDbEntity") 
            '(100 . "AcDbText") 
            (cons 10 ptz) 
            (cons 40 (* 500.0 BL)) 
            (cons 50 JD) 
            (cons 41 0.8) 
            (cons 51 0) 
            (cons 1 A) 
            (cons 7 "宋体") 
            (cons 72 0)  ;;左对齐 
            (cons 11 ptz) 
            '(100 . "AcDbAttribute") 
            (cons 2 "A") 
            (cons 70 0) 
           (cons 73 0) 
            (cons 74 2) 
           ) 
    ) 
   ;;;结束标志 
          (entmake '((0 . "SEQEND"))) 
           (princ) 
  )

wmz · 发表于 2014-10-6 12:26

伪书虫86 发表于 2014-10-6 12:13
赶紧看21#，有大师帮解决了

不用谢，我也是抄的G版主的！

Endlesswx · 发表于 2015-5-9 18:35

wmz 发表于 2014-10-6 12:25

还在吗？？

请问这样插入，属性的值在哪设置呢？？
我试的时候，插入后属性和块是分离的，且属性只显示名称，没有值

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

[已解答] 请教怎么通过entmake天正里的图块啊？

评分