USER2128 发表于 2015-6-27 16:18:58

回复看贴，谢谢！

SunSpring 发表于 2015-6-27 16:28:41

菜卷鱼 发表于 2015-6-27 16:18
不喜欢对话框

功能单一的话当然不需呀，稍复杂点，还是对话框方便

edata 发表于 2015-6-27 16:50:02

你的代码少了个sslist 函数
分解大法求多重引线文字边框
(defun c:tt ( / en enx ex ll pt1 pt2 ss ssn ssx ur)
(if (setq ss (ssget '((304 . "*"))))
    (while (setq en (ssname ss 0))
      (setq enx (entmakex (entget en)))
      (command "EXPLODE" enx)
      (if (setq ssx (ssget "P"))
        (progn
          (setq ssn (ssget "p" '((0 . "*text"))))
          (setq ex (ssname ssn 0))
          (vla-getboundingbox (vlax-ename->vla-object ex) 'LL 'UR)
          (setq        pt1 (vlax-safearray->list LL) ;取左下角点
                pt2 (vlax-safearray->list UR)
          )                                ;取右上角点
          (command "RECTANG" "non" pt1 "non" pt2)
          (setq ssx (ssdel ex ssx))
          (entdel ex)
        )
      )
      (print (sslength ssx))
      (print "ss")
      (command "ERASE" ssx "")
      (setq ss (ssdel en ss))
    )
)
(princ)
)

spp_wall 发表于 2015-6-27 17:06:04

看看卷菜鱼的怎么样看看卷菜鱼的怎么样

菜卷鱼 发表于 2015-6-27 17:23:23

edata 发表于 2015-6-27 16:50 static/image/common/back.gif
你的代码少了个sslist 函数
分解大法求多重引线文字边框

sslist 补上去了

friendship 发表于 2015-6-27 19:41:14

xiexie louzhu

hastan 发表于 2015-6-27 20:31:18

FANGZHENG158 发表于 2015-6-27 22:23:14

看看卷菜鱼的怎么样

lzg8877 发表于 2015-6-28 07:21:31

我也想找找看有没有带#号查找的

sz721 发表于 2015-6-29 00:19:36



是这个效果？
页: 1 [2] 3 4 5 6
查看完整版本: 查找（find)命令的定位效果如何实现？