[LISP程序]：成批修改文字大小

zhgolden · 发表于 2005-1-12 17:26:45

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

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

×

(

defun c:bzh()

(setq zh(getreal "\n请输入字号"))

(setq dx(getreal "\n请输入水平移动距离右为正左为负"))

(setq dy(getreal "\n请输入垂直移动距离上为正下为负"))

(setq gcd (ssget "X" (list (cons 0 "TEXT")(cons 8 "gcd"))))

(setq n 0)

(

repeat (sslength gcd)

(setq gcdian(entget (ssname gcd n)))

(setq gcdx (cadr(assoc '10 gcdian)))

(setq gcdy (caddr(assoc '10 gcdian)))

(setq gcdian

(subst (list 10(+ gcdx dx) (+ gcdy dy) 0)

(assoc 10 gcdian)

gcdian

)

)

;如两端对齐方式为非右对齐，则上面7行中'10、10应为'11、11

(setq gcdian

(subst (cons 40 zh)

(assoc 40 gcdian)

gcdian

)

)

(entmod gcdian)

(setq n (+ n 1))

)

)

eachy · 发表于 2005-1-12 18:09:27

最初由 zhgolden 发布
[B](

defun c:bzh()

(setq zh(getreal "\n请输入字号"))

(setq dx(getreal "\n请输入水平移动距离右为正左为负"))

(setq dy(getreal "\n请输入垂直移动距离上为正下为负"))

(setq gcd (ssget "X" (list ... [/B]

xiaoyue663 · 发表于 2005-1-21 14:09:53

好啊

zzlphp · 发表于 2005-2-5 10:13:54

; 错误: 参数类型错误: lselsetp nil
提示有以上错误，请问是什么原因。
总的来说这个小程序很好的，先谢谢了

xfxy0405 · 发表于 2005-2-27 21:26:29

不明白怎么用？？请指教

LNASER · 发表于 2006-4-7 23:26:00

谢了，辛苦

好为人师 · 发表于 2006-4-23 19:43:43

常情滕里也有这样工具

desmondng · 发表于 2006-5-28 23:59:14

请问如何使用zhgolden []写的lisp程序呢？
谢了先

tinghai1982 · 发表于 2006-5-30 15:07:17

对于天正的文字惯用吗？请教高手

xiaodonglee · 发表于 2006-5-31 08:07:47

有点错误
不过很不错了

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

[LISP程序]：成批修改文字大小

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

相关帖子

Re: [LISP程序]：成批修改文字大小