如何用引线的方式标注块名

yansu

作图时由块拼成的节点图，因为很多图中的块是相同的重复引线标注非常慢，请问高人如何用引线的方式标注块名，即点击图块拉出引线标注块名。谢谢

Gu_xl

回复 yansu 的帖子

是这样么？

2. 
   
3. (defun c:tt()
   
4.   (setq en (car(entsel "\n选择图块：")))
   
5.   (setq bn (cdr (assoc 2 (entget en)))
   
6.         pt (cdr (assoc 10 (entget en)))
   
7.         )
   
8.   (command "mleader" pt (getpoint pt "\n标注位置：") bn)
   
9.   )
   

<br /> (defun c:tt()<br />   (setq en (car(entsel "\n选择图块：")))<br />   (setq bn (cdr (assoc 2 (entget en)))<br />         pt (cdr (assoc 10 (entget en)))<br />         )<br />   (command "mleader" pt (getpoint pt "\n标注位置：") bn)<br />   )<br />

bai2000

楼上，你的程序不能用啊

Gu_xl

回复 bai2000 的帖子

你的cad版本是？2008下正常，其他版本没测试...

yansu

cad2006下没有标注出文字，标注位置方向要自己点选，可以确定字体大小，能在cad2010下使用最好，谢谢

ZZXXQQ

[/post=5]

1. (defun c:tt()
   
2. (if (and (setq en (car(entsel "\n选择图块：")))
   
3.           (setq ent (entget en))
   
4.           (= (cdr(assoc 0 ent)) "INSERT")) (progn
   
5.   (setq bn (cdr (assoc 2 ent))
   
6.         pt (cdr (assoc 10 ent)))
   
7.    (command ".leader" pt PAUSE "" bn "")
   
8. ))
   
9. (princ)
   
10. )
    

(defun c:tt()<br /> (if (and (setq en (car(entsel "\n选择图块：")))<br />           (setq ent (entget en))<br />           (= (cdr(assoc 0 ent)) "INSERT")) (progn<br />   (setq bn (cdr (assoc 2 ent))<br />         pt (cdr (assoc 10 ent)))<br />    (command ".leader" pt PAUSE "" bn "")<br /> ))<br /> (princ)<br /> )<br />

[/post]

yygusong

需要多选标注ZZXXQQ 请出手

443971181

Gu_xl 发表于 2011-1-8 22:50
回复 bai2000 的帖子

你的cad版本是？2008下正常，其他版本没测试...

06CAD也用不好的

ahulo

刚刚找到这个东西。反现是很不错的东西 啊。不过有个问题有上面2位的代码的时候选择块以后引线的基点会飞得很远。而不是直接在块的基点上。能不能修改一下啊

xyp1964

2. ;; 块名引线标注 伪源码需要e派工具箱(XCAD)的支持
   
3. (defun c:tt ()
   
4.   (CMDLA0)
   
5.   (setq        ss (ssget '((0 . "insert")))
   
6.         i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (setq bn (xyp-get-dxf 2 s1)
   
10.           pt (xyp-get-dxf 10 s1)
    
11.           s2 (xyp-Text 5 (xyp-get-Pt2XY pt 1000 1000) bn)
    
12.     )
    
13.     (xyp-Leader s2 pt 0 0)
    
14.   )
    
15.   (CMDLA1)
    
16. )

;; 块名引线标注 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "insert")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq bn (xyp-get-dxf 2 s1)<br />           pt (xyp-get-dxf 10 s1)<br />           s2 (xyp-Text 5 (xyp-get-Pt2XY pt 1000 1000) bn)<br />     )<br />     (xyp-Leader s2 pt 0 0)<br />   )<br />   (CMDLA1)<br /> )