500w008 发表于 2009-10-7 15:47:00

howboo 发表于 2023-5-30 09:49:27

masterlong 发表于 2010-4-25 13:06
;;auto_ch_style.lsp(defun c:auto_ch_style() (setvar "cmdecho" 0) (command "undo" "g")&nbsp ...

大神，这个能不能帮忙做成VLX插件加载的形式，谢谢！

500w008 发表于 2009-10-7 22:23:00

ZZXXQQ 发表于 2009-10-7 20:42:00


;将AT打头的字串改成TSSDCHN.SHX字体 ZZXXQQ 2009.10.7
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((0 . "TEXT") (1 . "AT*")))) (progn
(command "style" "TSSDCHN" "TSSDCHN.SHX" "" "" "" "" "" "")
(setq i 0)
(repeat (sslength ss)
   (setq en (ssname ss i)
         i (1+ i))
   (command "change" en "" "" "" "TSSDCHN" "" "" "")
)
))
(setvar "CMDECHO" 1)
(princ)
)

hbllw 发表于 2009-10-31 23:14:00

这个不错，收藏了

lihaijun1024 发表于 2009-11-1 12:42:00

<p>强顶 谢谢 </p>

xhq1954425 发表于 2009-11-1 17:04:00

学习！版主确实厉害！多谢！

moerocosmo 发表于 2009-11-2 19:00:00

版主确实厉害！

xjking007 发表于 2009-11-2 23:08:00

<p>还做得不够好.我觉得,不但要改AT带头的呀.</p><p>别的带头的也能改,比如A,打头,AL打头什么的,W打头什么的,这种功能,</p><p>要用户输入才好.</p>

xjf 发表于 2009-11-2 23:52:00

以此类推，楼主给你带了个好头

llkill 发表于 2009-11-6 16:06:00

<p>查找　　替换布局可以了？</p>
页: [1] 2 3
查看完整版本: 把此贴删除了