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

santalin

我自己写了一个代码，弄了一下午都没弄出来

看看问题在哪儿啊？

(defun c:de1 ( / e_list_newitem )
     (setvar "cmdecho" 0)
     (princ "\n所有标注样式:\n")
     (while
         (setq e_list (tblnext "dimstyle" (null e_list)))
         (setq e_list_item (assoc 40 e_list))     
         (setq oldvalue (cdr e_list_item))        
         (princ oldvalue)
         (princ "→")
         (setq newvalue (* 2 oldvalue))    
         (princ newvalue)
         (princ "\n")                  
         (setq e_list_newitem (subst newvalue oldvalue e_list_item)) ;这一步出错，提示“ 错误: 参数类型错误: consp 100.0”
         (setq e_list (subst e_list_newitem e_list_item e_list))     
         (entmod e_list)                          
     )
     (setvar "cmdecho" 1)
     (princ)
)

是什么原因啊？

用CAD命令可以实现，但是我想要lisp语言怎么写？

不要(setvar "DIMSCALE" newvalue)和(COMMAND "DIMSCALE" newvalue)这样的语句

太没技术含量

yxp

你想干什么？将一个CAD图里的所有标注样式的全局比例放大二倍？

(setvar "DIMSCALE" newvalue)

santalin

用CAD命令可以实现，但是我想要lisp语言怎么写？

不要(setvar "DIMSCALE" newvalue)和(COMMAND "DIMSCALE" newvalue)这样的语句

太没技术含量

santalin

问题解决了，自己摸索找到的方法