[分享]：图名线，文字下划线程序啊~！~！

carrot1983 · 发表于 2006-11-18 11:37:08

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

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

×

以下是我最新更改的。
附件里面是我以前编的。。。呵呵。
[php]
(defun c:xh ()
  (while (setq sel (entsel "\n>>选择要加图名线的文本:"))
(setq txtn (car sel))
(setq txtdata (entget txtn))
(setq txttype (cdr (assoc '0 txtdata)))
(setq txthigh (cdr (assoc '40 txtdata)))
(setq pt (cdr (assoc '10 txtdata)))
(setq lw (/ (* txthigh 3) 40))
(setq pt1 (car (textbox txtdata)))
(setq pt2 (cadr (textbox txtdata)))
(setq dis (distance pt1 pt2))
(setq dis_DD (* (/ 0.055 0.4) txthigh))
(setq pt_x (car pt))
(setq pt_y (cadr pt))
(setq pt_D1 (list pt_x (- pt_y dis_DD)))
(setq pt_D2 (list pt_x (- pt_y (* 2 dis_DD))))
(command "pline" pt_D1 "w" lw lw (polar pt_D1 0 dis) "")
(command "pline" pt_D2 "w" 0 0 (polar pt_D2 0 dis) "")
  )
  (prin1)
)
[/php]
如果遇到MTEXT和其它物件。可以用条件语句排开。例如：

(if (= txttype "MTEXT")
(progn
(command "EXPLODE" txtn)
(princ "\n多行文字变成单行文字，重新执行xh")
(exit)
))
和
(if (/= txttype "MTEXT")
(progn
(princ "\n请选择文本，重新来过吧")
(exit)
))

这是初学者比较基础的语言。让大家见笑了。。。。

qjcpj · 发表于 2006-11-18 19:39:46

对于"TEXT"实体，最简单的例子是：
(strcat "%%u" "文字")

hechao48 · 发表于 2006-11-18 20:09:46

我直接是文字前加%%u

carrot1983 · 发表于 2006-11-19 01:14:49

直接是文字前加%%u ,这个是一条下划线啊，呵。我这里的图名线是一条粗，一条细.

xyp1964 · 发表于 2006-11-19 17:32:09

下面是一条粗实线。
试用签名栏下的“文本编辑套件”程序，可以批量加下划线。

gccghl · 发表于 2006-12-26 08:32:19

怎么还是下不了？楼主查一下？

carrot1983 · 发表于 2006-12-27 17:59:21

不是贴在上面了吗？？？
下载的文件就是代码里面的内容啊。。呵呵。。

黄河之水 · 发表于 2006-12-31 09:41:28

我看了又学了一招,%%U

zfylxy · 发表于 2007-11-8 08:29:56

我看了又学了一招

它山之石 · 发表于 2007-11-8 09:06:10

咋又把这个翻出来了

carrot1983 · 发表于 2007-11-8 13:23:28

好怀念刚开始学习lisp时的激情啊。
一开始加班以后，就没有再深入学习了，一直停留在初级阶段。
拿别人编好的来用更实在些。呵呵

xyp1964 · 发表于 2007-11-8 23:15:43

下划线示意：

gjk00 · 发表于 2007-11-11 11:32:43

9楼楼主说： 9pt 10pt 11pt 12pt 13pt 15pt

我看了又学了一招

cy956 · 发表于 2007-11-11 12:48:18

xyp兄程序演示中有个转正的回放，没有必要。

carrot1983 · 发表于 2007-11-12 09:02:50

院长的意思，是想告诉我们思路吧！
放步给我看。。。

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

[分享]：图名线，文字下划线程序啊~！~！

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

相关帖子