[LISP程序]：cad小工具

yx5277 · 发表于 2004-4-22 00:28:00

字符分开程序能否设置让使用者选一个或多个分开点啊?

zhiwei112233 · 发表于 2004-4-22 12:57:49

请问1楼主，我加载你的LISP程序后，怎么用呢？快捷健是什么才能拾行命令呢？

dhxf · 发表于 2004-4-22 23:08:37

太棒了~就是我需要的--
达到了我一直在找的一个功能

leontai · 发表于 2004-4-26 12:18:59

作用不大啊

zhangh75 · 发表于 2004-4-26 14:46:43

不好用呀，一用两个字符什么都不见了。

kuaile · 发表于 2004-5-6 13:36:13

发挥了CAD的又一个功能，不错

bridgewind · 发表于 2004-5-6 19:55:12

空格是什么意思？

tomtom · 发表于 2004-5-8 11:16:08

49楼 “请问1楼主，我加载你的LISP程序后，怎么用呢？快捷健是什么才能拾行命令呢？” 请查看下面链接 http://www.xdcad.net/forum/showt ... amp;threadid=159073

dubing · 发表于 2004-5-10 09:57:16

这里有一个工具不知大家能否用上：Topology Creator (多边形构建者）
软件主页：http://cadx.go.nease.net/index.htm
动画演示压缩文件1：http://cadx.go.nease.net/TopoShow_RAR_Archive.part1.exe
动画演示压缩文件2：http://cadx.go.nease.net/TopoShow_RAR_Archive.part2.rar

petrogas · 发表于 2004-5-11 23:27:29

GOOD

starling · 发表于 2004-5-11 23:44:57

下了一个，感觉不是很好用啊

houxianyong · 发表于 2004-5-12 08:56:11

最初由 lxw917 发布
[B]是不是R14的用不来？命令一用两串字符都不见了。 [/B]

R14下合并多个文本串用下面这段LISPc：
;将离散文本合成compose text
(defun c:ct(/ ft fttb ftext st sttb stext)
(setq ft "TT")
(while (/= ft "TEXT") (setq ft (cdr (assoc 0 (setq fttb (entget (car (entsel " 选择第一个文本串:"))))))))
(setq ftext (cdr (assoc 1 fttb)))
(while (/= (setq st (car (entsel "\n 选择下一个文本串:"))) nil)
      (if (= (cdr (assoc 0 (setq sttb (entget st)))) "TEXT")
         (progn (setq stext (cdr (assoc 1 (entget st))))
               (setq ftext (strcat ftext stext))
               (setq fttb (subst (cons 1 ftext) (assoc 1 fttb) fttb))
               (entmod fttb)
               (setq sttb (subst (cons 1 "") (assoc 1 sttb) sttb))
               (entmod sttb)
         )
      )
)
(princ)
)

xjxing · 发表于 2004-5-14 21:18:38

如何使用？最好加以说明

lbf598 · 发表于 2004-6-12 20:50:06

作用不算很明显

mnyhk · 发表于 2004-6-20 17:13:21

有点用处，但不是很大

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