santalin 发表于 2009-8-17 17:22:00

██ [求助]怎样批量修改标注样式里的主单位啊？ ██

本帖最后由 作者 于 2009-8-18 11:20:48 编辑 <br /><br /> <p>我自己写了一个代码，弄了一下午都没弄出来</p><p>看看问题在哪儿啊？</p><p>(defun c:de1 ( / e_list_newitem )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n所有标注样式:\n")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (while <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e_list (tblnext "dimstyle" (null e_list)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e_list_item (assoc 40 e_list))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq oldvalue (cdr e_list_item))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ oldvalue)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "→")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq newvalue (* 2 oldvalue))&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ newvalue)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <strong><font color="#ff3300">(setq e_list_newitem (subst newvalue oldvalue e_list_item)) ;这一步出错，提示“ 错误: 参数类型错误: consp 100.0”<br/></font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e_list (subst e_list_newitem e_list_item e_list))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod e_list)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ)<br/>)</p><p></p><p>是什么原因啊？</p><p><strong>用CAD命令可以实现，但是我想要lisp语言怎么写？</strong></p><p><strong>不要(setvar "DIMSCALE" newvalue)和(COMMAND "DIMSCALE" newvalue)这样的语句</strong></p><p><strong>太没技术含量</strong></p>

yxp 发表于 2009-8-17 20:23:00

<p>你想干什么？将一个CAD图里的所有标注样式的全局比例放大二倍？</p><p>(setvar "DIMSCALE" newvalue)</p>

santalin 发表于 2009-8-18 11:20:00

<p>用CAD命令可以实现，但是我想要lisp语言怎么写？</p><p>不要(setvar "DIMSCALE" newvalue)和(COMMAND "DIMSCALE" newvalue)这样的语句</p><p>太没技术含量</p>

santalin 发表于 2009-9-16 16:38:00

问题解决了，自己摸索找到的方法
页: [1]
查看完整版本: ██ [求助]怎样批量修改标注样式里的主单位啊？ ██