xyp1964 发表于 2012-5-27 10:31:46

文本内容和字高匹配复制


;; 文本内容和字高匹配复制
;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(CMDLA0)
(if (and (setq s0 (car (entsel "\n选择标准文本: ")))
    (xyp-etype s0 "text")
    (setq ss0 (ssget))
      )
    (progn
      (setq tx (xyp-get-dxf 1 s0)
   th0 (xyp-get-dxf 40 s0)
   ss1 (ssget "X" (list '(0 . "text") (cons 1 tx)))
   p0 (xyp-get-9pt ss0 9)
   i -1
      )
      (while (setq s1 (ssname ss1 (setq i (1+ i))))
(setq pt (xyp-get-9pt s1 3)
       th (xyp-get-dxf 40 s1)
       s0 (entlast)
       sc (/ th th0 1.)
       pt (xyp-get-Pt2Y pt (* sc -200))
)
(xyp-copymove ss0 p0 pt)
(if (/= sc 1)
   (xyp-ScaleEntity (xyp-SSelEntnext s0) pt sc)
)
      )
    )
)
(CMDLA1)
)

cable2004 发表于 2012-5-27 10:51:58

e派工具箱XCAD强大！

daidong013 发表于 2012-5-27 11:21:27

xyp1964 发表于 2012-5-27 10:31 static/image/common/back.gif
文本内容和字高匹配复制

万分感谢院长！~~！~~

daidong013 发表于 2012-5-27 11:40:43

xyp1964 发表于 2012-5-27 10:31 static/image/common/back.gif
文本内容和字高匹配复制

再请教院长，如果插入的东西要匹配到这样的位置可否实现呢？！~~





daidong013 发表于 2012-5-27 12:35:42

daidong013 发表于 2012-5-27 11:40 static/image/common/back.gif
再请教院长，如果插入的东西要匹配到这样的位置可否实现呢？！~~

佩服佩服！还望院长出手！~~

xyp1964 发表于 2012-5-28 13:19:43




daidong013 发表于 2012-5-29 09:45:10

xyp1964 发表于 2012-5-28 13:19 static/image/common/back.gif


请教院长，我这里的插入点好向反了，改那个语句可以倒过来啊！~~



daidong013 发表于 2012-5-29 14:00:36

xyp1964 发表于 2012-5-28 13:19 static/image/common/back.gif




参考文件！~

pop159 发表于 2012-5-30 21:24:39

院长好，东西实在好，确实很实用，谢谢。但为了使用这一个命令却要加载一个7MB多的XCAD.VLX文件，实在给咱造成了很大的困扰，希望院长就此命令帮俺“减肥”，不胜感激，谢谢支持真的需要此命令，谢谢。

lisp爱好者 发表于 2013-3-18 14:31:12

本帖最后由 lisp爱好者 于 2013-3-18 16:14 编辑

晕，购买了下不了，院长帮忙发我下：610011868@qq.com
版主能办忙的话也可以了，我确实购买了，帮忙发给我下截屏


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