[编程申请]：帮忙编写一个文字连接程序

guanhuaming · 发表于 2005-1-13 17:00:57

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

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

×

以前的好多图纸的文字和数字是分开的，很麻烦。能否编写一个连字连接程序？并可在程序中指定连接后文字的位置？
以前版主编了一个，可要用到东东工具箱，我机子又没装这玩艺。
谢谢！

Free-Lancer · 发表于 2005-1-14 06:57:25

(defun c:tt (/ e el str tl)
(if (and (setq e (car (entsel "\nPick First Text: ")))
(= (cdr (assoc 0 (setq el (entget e)))) "TEXT")
)
(progn
(setq str (cdr (setq tl (assoc 1 el))))
(while (and (setq e1 (car (entsel "\nNext Join: ")))
(= (cdr (assoc 0 (setq el1 (entget e)))) "TEXT")
)
(setq str (strcat str (cdr (assoc 1 el1))))
(entmod (subst (cons 1 str)
tl
el
)
)
(entdel e1)
)
)
)
(princ)
)

f5612140 · 发表于 2005-1-13 22:51:00

文字插入,留給樓主自己完善吧

(defun c:plltxt ()
  (setq en1 (car (entsel "\nSelect text:")))
  (while en1
(setq xobj1 (vlax-ename->vla-object en1))
(setq txtdata1 (vla-get-TextString xobj1))
(command "chprop" en1 "" "c" 2 "")
(setq en2 (car (entsel "\nSelect text join:")))
(setq xobj2 (vlax-ename->vla-object en2))
(setq txtdata2 (vla-get-TextString xobj2))
(command "chprop" en2 "" "c" 2 "")
(setq newtxt (strcat txtdata1 txtdata2))
(vla-put-TextString xobj1 newtxt)
(vl-cmdf "chprop" en1 "" "c" "bylayer" "")
(vl-cmdf "erase" en2 "")
(setq en1 (car (entsel "\nSelect text:")))
  )
  (prin1)
)

guanhuaming · 发表于 2005-1-14 12:43:45

非常感谢楼上的两位高手

lmt112233 · 发表于 2005-1-14 12:55:02

曉東工具已經有這功能,還可以把文字段開.

guanhuaming · 发表于 2005-1-23 12:51:47

哦，可我机子上没装东东工具箱。

雨中漫步0423 · 发表于 2005-2-10 20:06:36

文字和数字在一起的话也是有问题的，之后以分开应该是因为字高和字型不一样，如果你合并了的话，字高就不一样了，很丑的，我试过……

li809 · 发表于 2005-2-14 22:45:44

合并后也有一样的,很美观的,
论坛中有请找下

ss1025 · 发表于 2005-2-21 13:00:40

楼上说的对，现在有很多软件早就解决了合并后字体的问题了。
建议还是用专业软件画图，省时省力啊。

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

[编程申请]：帮忙编写一个文字连接程序

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

相关帖子