daidong013 发表于 2012-5-7 14:03:10

【求助】按文字插入对应材料编号！~~

看到有这么一个工具挺不错的，绘图的时候效率可以提高不少！~
大伙看看，望高手们可以出手山寨一个！~~





水仙的错 发表于 2019-9-15 17:11:15

很好，收藏了，谢谢！

墨者 发表于 2018-4-4 06:11:41

谢谢楼主分享

fdb2007 发表于 2012-5-7 16:26:39

本帖最后由 fdb2007 于 2012-5-7 16:27 编辑

楼主的东西隐形了，走眼了，要程序啊

wudi 发表于 2012-5-7 19:31:03

这项功能确实不错

daidong013 发表于 2012-5-8 09:52:08

顶起来！~~

梦醒才知原是梦 发表于 2012-5-10 16:03:41

守仁格竹GM 发表于 2012-5-20 22:58:18

顶,有创意服了

xieyanghui 发表于 2012-5-26 12:14:49

在引线的端点插入就方便了

xyp1964 发表于 2012-5-26 13:51:52

文本匹配复制：

;; 文本匹配复制
;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(CMDLA0)
(if (and (setq s1 (car (entsel "\n选择: ")))
    (xyp-etype s1 "text")
    (setq ss (ssget))
      )
    (progn
      (setq tx (xyp-get-dxf 1 s1)
   ss0 (ssget "X" (list '(0 . "text") (cons 1 tx)))
   p0 (xyp-get-9pt ss 9)
   i -1
      )
      (while (setq s1 (ssname ss0 (setq i (1+ i))))
(setq pt (xyp-get-9pt s1 3)
       pt (xyp-get-Pt2Y pt -200)
)
(xyp-copymove ss p0 pt)
      )
    )
)
(CMDLA1)
)

daidong013 发表于 2012-5-27 04:45:55

xyp1964 发表于 2012-5-26 13:51 static/image/common/back.gif
文本匹配复制：

感谢院长的热心帮助！
还是院长厉害！高手高手高高手！

daidong013 发表于 2012-5-27 09:57:55

xyp1964 发表于 2012-5-26 13:51 static/image/common/back.gif
文本匹配复制：

院长帮忙看看这里可否调整一下！~



页: [1] 2 3
查看完整版本: 【求助】按文字插入对应材料编号！~~