生成/修改dimstyle

blueshake · 发表于 2022-7-6 10:26:13

大家好
在autocad2010中
对于“风格”，我们可以很容易地使用下面的代码来构建新的风格。


(if (= (tblsearch "style" "standard") nil)
        (command "style" "standard" "arial" "3.5" "0.666" "0.0" "" "" "")
        (command "style" "standard" "arial" "3.5" "0.666" "0.0" "" "" "")
)

“dimstyle”的故事似乎不一样

如果我想构建一个名为“standard”的新“dimstyle”，我应该怎么做？

如果“标准”存在，我想修改“标准”的一些选项，那么我该怎么办？？
谁能给我一些示例代码吗？
谢谢你的帮助。

lpseifert · 发表于 2022-7-6 10:30:22

下面是一个关于如何创建dimstyle的线程
http://www.cadtutor.net/forum/showthread.php?50845-维度样式创建-%28 plz chk my new lisp amp how to improve%29

在此处查看如何修改dimstyle
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/DImstyle-modification-using-Table-record/m-p/2776102#U2776102

blueshake · 发表于 2022-7-6 10:34:27

谢谢你的回复。

blueshake · 发表于 2022-7-6 10:36:09

您好，看完帖子后，我仍然很困惑，仍然不知道如何构建/修改“dimstyle”：（

lpseifert · 发表于 2022-7-6 10:41:47

请举例说明要在现有dimstyle中修改的内容

顺便说一句，我编辑了我的第一篇文章，其中包含了一个关于如何创建dimstyle的线程

blueshake · 发表于 2022-7-6 10:43:04

好的，新的线程应该会帮助很多，谢谢你。

Tharwat · 发表于 2022-7-6 10:47:26

可以使用以下简单命令创建新尺寸：

copy

(vl-cmdf "_.-dimstyle" "_save" "New Dims." )

塔瓦特

blueshake · 发表于 2022-7-6 10:50:08

非常感谢。

blueshake · 发表于 2022-7-6 10:52:23

嗨，经过你的帮助，我终于知道怎么做了。
以下是代码：

copy

  (defun build_dimstyle(/)
(if (= (tblsearch "dimstyle" "standard") nil)
;then
        (command "dimstyle" "s" "标准")
;else
        (command "dimstyle" "r" "standard")
)
(princ "start setting")
(foreach setuplisp '(
                                        ("dimtxt" . 3.5)
                                        ("DIMADEC" . 2)
                                        ("DIMALTRND" . 0.0000)
                                        ("DIMARCSYM" . 2)
                                        ("DIMASZ" . 2.5000)
                                        ("DIMATFIT" . 3)
                                        ("DIMAUNIT" . 0)                                                
                                        ("DIMAZIN" . 0)
                                        
                                        )
(setvar (car setuplisp) (cdr setuplisp))                                        
)
(command "-dimstyle" "s" "standard" "yes")
 )

顺便说一句
有人知道怎么做吗？
http://www.cadtutor.net/forum/showthread.php?52664-更改箭头尾部的长度&p=356629#post356629

Tharwat · 发表于 2022-7-6 10:55:31

干得好blueshake。

如果你愿意的话，这里有另一种同样结果的方法。并做了如下修正。
看看这个。

copy


(defun build_dimstyle (/)
(if (not (tblsearch "dimstyle" "standard"))
         (command "[color="red"]_.-[/color]dimstyle" "[color="red"]_[/color]s" "??")
         (command "[color="red"]_.-[/color]dimstyle" "[color="red"]_[/color]r" "standard")
        )
(princ "start setting")
(mapcar 'setvar '("dimtxt" "DIMADEC" "DIMALTRND" "DIMARCSYM" "DIMASZ" "DIMATFIT" "DIMAUNIT" "DIMAZIN")
'(3.5 2 0.0000 2 2.5000 3 0 0))
(command "[color="red"]_.-[/color]dimstyle" "[color="red"]_[/color]s" "standard" "[color="red"]_[/color]yes")
 )

除此之外，还可以使用dimstyle entmake转换为dimstyle，速度稍快。

祝你好运

塔瓦特

[编程交流] 生成/修改dimstyle

发表回复

精选推荐