fire9527 发表于 2013-1-4 16:57:02

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

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

yjr111 发表于 2013-1-4 16:57:03

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

革天明 发表于 2013-1-4 18:01:44

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

yjr111 发表于 2013-1-4 18:50:41

yjr111 发表于 2013-1-4 18:48 static/image/common/back.gif



fire9527 发表于 2013-1-4 20:39:42

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

fire9527 发表于 2013-1-4 20:41:31

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

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

yjr111 发表于 2013-1-4 20:43:40

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

fire9527 发表于 2013-1-4 23:01:51

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

已经很满意了，谢谢你！

西楚河神 发表于 2013-9-15 20:54:09

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

goodt 发表于 2021-11-18 15:41:38

大师，我的CAD2016版 提示末知命令，怎么处理？
页: [1] 2
查看完整版本: 哪位朋友帮忙写个同名块和指定点之间连线的程序