求线颜色变为线上文字颜色的程序

STRETCH · 发表于 2012-12-25 15:42:13

测试图形

zyhandw · 发表于 2012-12-25 17:34:24

试试这个是否能满足你的要求！命令是:test

STRETCH · 发表于 2012-12-25 18:04:14

zyhandw 发表于 2012-12-25 17:34
试试这个是否能满足你的要求！命令是:test

file:///C:/Users/guoxin/Desktop/FSDAF.gif有的行有的不行

STRETCH · 发表于 2012-12-25 18:07:01

zyhandw 发表于 2012-12-25 17:34
试试这个是否能满足你的要求！命令是:test

有的行，有的不行，望优化

STRETCH · 发表于 2012-12-25 18:12:44

STRETCH 发表于 2012-12-25 18:07
有的行，有的不行，望优化

沙发，zyhandw 的

叮咚 · 发表于 2012-12-25 20:37:09

试试，多看书，并不难的反过来想就行了，选直线，找字简单了

xyp1964 · 发表于 2012-12-25 21:20:41

;; 自定义函数下载: [url=http://bbs.mjtd.com/thread-95673-1-1.html]http://bbs.mjtd.com/thread-95673-1-1.html[/url]
(defun c:tt ()
(CMDLA0)
(setq i -1)
(if (setq ss (ssget '((0 . "LINE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p1 (xyp-Pt2y (xyp-DXF 10 s1) -10)
p2 (xyp-Pt2y (xyp-DXF 11 s1) 10)
)
(if (and (setq ss1 (ssget "c" p1 p2 '((0 . "text"))))
(= (sslength ss1) 1)
)
(xyp-SubUpd s1 62 (xyp-get-color (ssname ss1 0)))
)
)
)
(CMDLA1)
)

chpmould · 发表于 2012-12-25 21:48:47

不知那方面有这样的需求

STRETCH · 发表于 2012-12-26 08:17:00

xyp1964 发表于 2012-12-25 21:20

院长的满足要求，谢谢

zyhandw · 发表于 2012-12-26 08:24:15

解决了就好

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