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

伪书虫86

这个图块是天正电气里的设备图块，我通过entmake插入时，插入的块变成普通的块了，请教怎样才能完整的插入他的这个块啊？
(defun c:cs()
  (setq pt (getpoint))
  (entmake (list '(0 . "INSERT")
                 (cons 2 "$equip$00002539")
                 (cons 8 "EQUIP-照明")
                 (cons 10 pt)
                 (cons 50 0)
                 )
           )
  )

ludaweb

因为你这个是图中本来就有的属性块，建议用command。我试了试entmake插入不成功（可能是我太菜）。
楼主也可以看看这个帖子http://bbs.mjtd.com/thread-110357-1-1.html
下面的代码插入的块与你发的图上的一模一样

2. (defun c:cs(/ cm pt ent)
   
3.         (setq cm (getvar "cmdecho"))
   
4.         (setvar "cmdecho" 0 )
   
5.         (setq pt (getpoint "\n请输入插入点"))
   
6.         (setvar "clayer" "EQUIP-照明")
   
7.         (command "_.insert" "$equip$00002539" pt 350 350 0 "灯")
   
8.         (setq ent (entlast))
   
9.         (entmod (append (entget ent)'((-3 ("light" (1000 . "T"))))))
   
10.         (setvar "cmdecho" cm)
    
11.         (princ)
    
12. )

(defun c:cs(/ cm pt ent)<br />         (setq cm (getvar "cmdecho"))<br />         (setvar "cmdecho" 0 )<br />         (setq pt (getpoint "\n请输入插入点"))<br />         (setvar "clayer" "EQUIP-照明")<br />         (command "_.insert" "$equip$00002539" pt 350 350 0 "灯")<br />         (setq ent (entlast))<br />         (entmod (append (entget ent)'((-3 ("light" (1000 . "T"))))))<br />         (setvar "cmdecho" cm)<br />         (princ)<br /> )

ludaweb

这个不是天正图元吧，应该可以用command

2. (defun c:cs()
   
3.   (setq pt (getpoint))
   
4.   (command "insert" "$equip$00002539" pt 350 350 0 "")
   
5. )

(defun c:cs()<br />   (setq pt (getpoint))<br />   (command "insert" "$equip$00002539" pt 350 350 0 "")<br /> )

伪书虫86

ludaweb 发表于 2014-10-5 15:05
这个不是天正图元吧，应该可以用command

是天正的图元，天正电气里的灯具，刚试了下，command出来的比我那个entmake出来的要好些，但也没能包含它原来全部的东西，像那个A的值就不见了，还有我插这些块的时候需要插入到指定的图层，command可以做到吗？

ludaweb

2. (defun c:cs()
   
3.   (setq pt (getpoint))
   
4.   (setvar "clayer" "EQUIP-照明")
   
5.   (command "insert" "$equip$00002539" pt 350 350 0 "灯")
   
6. )

(defun c:cs()<br />   (setq pt (getpoint))<br />   (setvar "clayer" "EQUIP-照明")<br />   (command "insert" "$equip$00002539" pt 350 350 0 "灯")<br /> )

伪书虫86

ludaweb 发表于 2014-10-5 15:35

A的值还是没有显示，你那边有显示吗？

ludaweb

A值属性显示为“灯”。

ludaweb

command插入的少了一个属性
((-1 . <图元名: 7ef04d48>) (0 . "INSERT") (330 . <图元名: 7ef04c10>) (5
. "29") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "EQUIP-照明") (100 .
"AcDbBlockReference") (66 . 1) (2 . "$equip$00002539") (10 43054.2 12795.6 0.0)
(41 . 350.0) (42 . 350.0) (43 . 350.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0)
(45 . 0.0) (210 0.0 0.0 1.0) (-3 ("light" (1000 . "T"))))

伪书虫86

ludaweb 发表于 2014-10-5 15:57
command插入的少了一个属性
((-1 . ) (0 . "INSERT") (330 . ) (5
. "29") (100 . "AcDbEntity") (67 .  ...

你加粗的那个-3就是A要显示的值吗？
另外这种图块通过entmake的话，应该怎么写啊？

aihuyujian

应该是属性快