[求助]请问高手，如何列出所有标注样式名称？

userzhl

请问高手，如何列出所有标注样式名称？

qq1254582201

要是能给这个 完善了不是更美好嘛！！！！

caoyin

(defun test (/ ce lst)
  (while (setq ce (tblnext "Dimstyle" (not ce)))
    (setq lst (append lst (list (cdr (assoc 2 ce)))))
  )
  (acad_strlsort lst)
)

userzhl

谢谢楼上，但我还想问个问题，如何把列表lst中全局比例(getvar "DIMSCALE")相同的标注样式，合并成(strcat "模型空间1：" (vl-princ-to-string (getvar "DIMSCALE")))？？

caoyin

不懂楼主的意思

userzhl

我的意思是：

例如：图中有标注样式“50”“100”“150”“200”“250”，其中“50”“150”“250”的全局比例"DIMSCALE"都是100，需要把“50”“150”“250”合并成样式：“模型空间1：100”。

不知这样说明白了没有？

caoyin

(mapcar '(lambda (x / app)
           (if (= (cdr (assoc 40 (entget (tblobjname "dimstyle"
                                                     (cdr (assoc 3 (setq app (entget x))))
                                         )
                                 )
                       )
                  )
                  100
               )
             (entmod (subst '(3 . "模型空间1：100") (assoc 3 app) app))
           )
         )
         lst
)

注意要确保标注样式模型空间1：100存在, lst是图元列表

--------------------------------------------------------------------------------------

userzhl

楼上，按您的要求：标注样式模型空间1：100存在, lst是图元列表

但是执行后：

错误: 参数类型错误: lentityp "标注1：100"(其中的一个标注样式)

userzhl

caoyin兄，可否帮忙看看是什么原因？

caoyin

我测试没有问题啊，

程序执行条件：标注样式 "标注1：100" 存在。

测试文件： 

userzhl

谢谢，高人caoyin