求cass宗地图自动挪压盖的插件

天天向尚

宗地图草图智能避让压盖的程序

仁里

(vl-load-com) (defun c:gt1(/ sstext text_sn cpl i) (setq sstext (ssget '((0 . "text"))))  (if sstext  (progn (setq i 0) (repeat (sslength sstext) (setq text_sn (ssname sstext i)       plst (LM:GetTextBox text_sn 0)       cpl (ssget "CP" plst '((0 . "text"))) ) (if (> (sslength cpl) 1) (vla-put-color (vlax-ename->vla-object text_sn) 3) )  (setq i (1+ i))  ))))

远方~

欢迎论坛的高手解答，会奖励相应的威望和铜板哦

莫开枪

你是说文字避让之类的吗

天天向尚

仁里 发表于 2023-3-28 17:09
(vl-load-com) (defun c:gt1(/ sstext text_sn cpl i) (setq sstext (ssget '((0 . "text"))))  (if sstext ...

怎么么用

寒风潇洒

11111111

li534255455

学习学习学习,谢谢楼主分享！！！

缺陷卟允

666666666

li534255455

学习学习学习,谢谢楼主分享！！！

13945788940

学习中，谢谢。

丹阳测量人

谢谢楼主分享

hua840209

感谢分享感谢分享感谢分享