哪位朋友帮忙写个同名块和指定点之间连线的程序

fire9527

有很多块（同名），如何让这些块跟一个指定点之间都生成一条直线？看上去那些块就像是从某点爆炸飞出去的一样！

yjr111

2. (defun c:tt(/ e1 p bname ss n)
   
3. (defun getdxf(num e)(cdr(assoc num(entget e))))
   
4. (setq e1(entsel"\n选择块:"))
   
5.   (if (and e1(=(getdxf 0(car e1))"INSERT"))
   
6.     (progn
   
7.     (setq p (getpoint "\n指定一点:"))
   
8.     (if p
   
9.       (progn
   
10.         (setq bname(getdxf 2(car e1))
    
11.               ss(ssget "x" (list(cons 0 "INSERT")(cons 2 bname)))
    
12.               )
    
13.         (repeat (setq n(sslength ss))
    
14.           (entmake (list '(0 . "LINE")
    
15.                          (cons 10 p)
    
16.                          (cons 11 (getdxf 10(ssname ss (setq n(1- n)))))))
    
17.           )
    
18.         )
    
19.       )
    
20.     )
    
21.     )
    
22. (princ)
    
23. )

(defun c:tt(/ e1 p bname ss n)<br /> (defun getdxf(num e)(cdr(assoc num(entget e))))<br /> (setq e1(entsel"\n选择块:"))<br />   (if (and e1(=(getdxf 0(car e1))"INSERT"))<br />     (progn<br />     (setq p (getpoint "\n指定一点:"))<br />     (if p<br />       (progn<br />         (setq bname(getdxf 2(car e1))<br />               ss(ssget "x" (list(cons 0 "INSERT")(cons 2 bname)))<br />               )<br />         (repeat (setq n(sslength ss))<br />           (entmake (list '(0 . "LINE")<br />                          (cons 10 p)<br />                          (cons 11 (getdxf 10(ssname ss (setq n(1- n)))))))<br />           )<br />         )<br />       )<br />     )<br />     )<br /> (princ)<br /> )

革天明

连个样图都没有，难啊，特别是“指定点”，为难人啊

yjr111

yjr111 发表于 2013-1-4 18:48

fire9527

就是这个效果！谢谢yjr111 朋友！ 能不能增加嵌套块识别？比如选择的标本块有些是嵌套在其它块里的，也把它们指示出来？

fire9527

革天明 发表于 2013-1-4 18:01
连个样图都没有，难啊，特别是“指定点”，为难人啊

不好意思，说得有些潦草，效果正如yjr111 朋友程序所示

yjr111

现在同志们提问水平越来越高了，一步一步来的哈

fire9527

yjr111 发表于 2013-1-4 20:43
现在同志们提问水平越来越高了，一步一步来的哈

已经很满意了，谢谢你！

西楚河神

在图纸中复制个构件名称是单行文字  作为母体然后框选图纸查找到所有与母体相同的文字和母体连线  大师  能帮我写一个这种程序不 不胜感激

goodt

大师，我的CAD2016版 提示末知命令，怎么处理？