查找文字并圆形标记

WongFoling · 发表于 2020-5-12 17:57:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 WongFoling 于 2020-5-30 17:55 编辑

QA0%CLQ()G%V@WK$HBTOUQP.png

[sell=100]
;查找文字并定位
(defun c:g( /  c  a a1 a2 ss i j  r1 r2 pt b)
;点选对象
  (list       (setq c (entget (ssname (ssget) 0)))
      (setq a (cdr (assoc 1 c)))
      ;(setq a1 (cdr (assoc 8 c)))
      ;(setq a2 (cdr (assoc 62 c)))
      (setq ss (ssget "x" (list (cons 1 a))))  ; (cons 8 a1)
  )

;标记圆形“标圆”
  (setq i (sslength ss))
  (setq J 0)
  (command "layer" "m" "BJTP" "")
  (repeat i
(setq a (entget (ssname SS J)))
(setq r (* 1 (cdr (assoc 40 a))))
(setq r1 (* 1.1 (cdr (assoc 40 a))))
(setq r2 (* 1.2 (cdr (assoc 40 a))))
(setq pt (mapcar '+ (list (/ r 2) (/ r 2) 0) (cdr (assoc 10 a))))
(command "color" 1)
(command "circle" pt r)
(command "color" 21)
(command "circle" pt r1)
(command "color" 6)
(command "circle" pt r2)
(setq J (+ J 1)) )
(setvar "clayer" "0")
(setq b "")
(princ "共:--------") (princ (sslength ss)) (princ "个--------")  (princ)
)
(defun c:gg (/ ss1)
  (setq ss1 (ssget "x" (list (cons 8 "BJTP"))))
  (command "erase" ss1 "")
  (setvar "clayer" "0")
)
[/code][/sell]
[code=lisp]

tzfcn · 发表于 2020-5-12 18:31:51

好代码来自好创意。

liuwenxuan8351 · 发表于 2020-5-12 19:58:46

感谢楼主分享收藏了

WongFoling · 发表于 2020-5-12 21:22:45

liuwenxuan8351 发表于 2020-5-12 19:58
感谢楼主分享收藏了

互相学习，共同进步

WongFoling · 发表于 2020-5-12 21:24:53

tzfcn 发表于 2020-5-12 18:31
好代码来自好创意。

一般我用到才想到

xk15c · 发表于 2020-5-13 00:16:45

这下用起来更方便了

yoyoho · 发表于 2020-5-13 08:29:12

感谢楼主分享!!!!!

WongFoling · 发表于 2020-5-13 09:02:24

yoyoho 发表于 2020-5-13 08:29
感谢楼主分享!!!!!

不客气

WongFoling · 发表于 2020-5-13 09:10:48

xk15c 发表于 2020-5-13 00:16
这下用起来更方便了

啦啦啦

xdcad9819 · 发表于 2020-5-14 07:23:06

本帖最后由 xdcad9819 于 2020-5-14 07:34 编辑

好好好好好好

王鹏_pBZlo · 发表于 2020-5-14 09:17:34

..........

WongFoling · 发表于 2020-5-14 09:56:23

王鹏_pBZlo 发表于 2020-5-14 09:17
..........

啥？？？？?

flyme137423 · 发表于 2020-6-29 11:15:43

我有一个连线标记的

liuzihou · 发表于 2020-11-5 02:40:57

没有豆子啊

hh_lj007 · 发表于 2021-10-27 00:08:20

感谢分享源码

账号		自动登录	找回密码
密码			立即注册

[文字] 查找文字并圆形标记

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分