文字样式替换

zhangq_cai1 · 发表于 2013-9-9 15:02:51

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

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

×

本帖最后由 zhangq_cai1 于 2013-9-9 17:08 编辑

刚开始用API，求高手指导。文字替换只替换第一个的样式

(defun C:setstyle ()
(XD::Begin)
(setq s1 (ssget '((0 . "TEXT")))
n (sslength s1)
i 0
)
(while (< i n)
(setq sname (ssname s1 i))
(xdrx_text_setstyle sname "楷体")
i (1+ i)
)
(XD::End)
(princ)
)

newer · 发表于 2013-9-9 15:34:32

你的问题在哪？详细描述下。

newer · 发表于 2013-9-9 15:40:55

看到什么说什么，对于处理选择集的，通用的两种

ss 是选择集

(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
...........处理每个实体的代码
)

另外一个：

(setq entl (xdrx_pickset->ents ss)) ;;;得到选择集的实体表
(foreach n entl
.....处理每个实体
)

你可以按照上面的，修改下你的代码。

zhangq_cai1 · 发表于 2013-9-9 15:47:59

只能点选一个一个改，批量选只能改第一个，想批量改

zhangq_cai1 · 发表于 2013-9-9 15:49:29

返回，错误: 函数错误: 1
~~~~~~~~~~~~~~~~··

newer · 发表于 2013-9-9 16:34:47

zhangq_cai1 发表于 2013-9-9 15:49
返回，错误: 函数错误: 1
~~~~~~~~~~~~~~~~··

你的代码里面这个地方

i (+1 i)

是不是写错了？ +号和1有空格，或者 1+

建议你用我上面给你的格式，重新写下，体会下选择集的处理。这个是很常用的。

zhangq_cai1 · 发表于 2013-9-9 17:23:04

修改成功了：:lol
(defun C:setstyle ()
(setq ss (ssget  '((0 . "TEXT")))
      i -1
   )
   (while (setq s1 (ssname ss (setq i (1+ i))))
      (xdrx_text_setstyle s1 "楷体")
)
(princ)
)

newer · 发表于 2013-9-9 17:27:46

zhangq_cai1 发表于 2013-9-9 17:23
修改成功了：
(defun C:setstyle ()
(setq ss (ssget '((0 . "TEXT")))

恭喜了，那就继续写，有问题就贴上来。

循环体里面，你换上别的API函数，就是做别的了，举一反三。

zhangq_cai1 · 发表于 2013-9-9 17:31:25

准备用opendcl写一个替换字高，宽高比等的程序~~~~~~~~

newer · 发表于 2013-9-9 18:44:13

zhangq_cai1 发表于 2013-9-9 17:31
准备用opendcl写一个替换字高，宽高比等的程序~~~~~~~~

好啊，写好后，贴到ODCL论坛吧。

st788796 · 发表于 2013-9-9 22:48:04

zhangq_cai1 发表于 2013-9-9 17:23
修改成功了：
(defun C:setstyle ()
(setq ss (ssget '((0 . "TEXT")))

你看看api的选集处理结构，还可以简化的

XDSoft · 发表于 2013-9-9 23:06:20

帮你修改下
主要是，加入IF结构，这样程序才稳定。要不你放弃选择，程序会出错。

(defun C:setstyle ( / e s1 ss)
(XD::Begin)
(if (setq s1 (ssget '((0 . "TEXT"))))
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(xdrx_text_setstyle e "楷体")
)
)
)
(XD::End)
(princ)
)

zhangq_cai1 · 发表于 2013-9-10 08:03:05

谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

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

[求助] 文字样式替换

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

点评

点评

点评