[编程申请]：Entmake生成Dimstyle

nwlulu

求救！如何用Entmake生成一个新的Dimstyle?或是lisp的其他方法？:i

XDSoft

你去看看下面这个帖子，关于ENTMAKE创建文字样式的帖子：

http://www.xdcad.net/forum/showthread.php?postid=78444#post78444

应该能对你有帮助，因为都是对符号表下的进行操作。

试试写，写的过程遇到的问题再贴论坛和大家交流吧。

eachy

最初由 nwlulu 发布
[B]求救！如何用Entmake生成一个新的Dimstyle?或是lisp的其他方法？:i [/B]

2. 
   
3. 命令: (entget (tblobjname "DIMSTYLE" "standard"))
   
4. ((-1 . <图元名: 40190ce0>) (0 . "DIMSTYLE") (105 . "1C") (330 . <图元名:
   
5. 40190cb0>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2
   
6. . "STANDARD") (70 . 0) (340 . <图元名: 40190c60>))
   
7. 
   
8. 命令: st STYLE 正在重生成模型。
   
9. 
   
10. 命令: (entget (cdr (assoc 340 (entget (tblobjname "DIMSTYLE" "standard")))))
    
11. ((-1 . <图元名: 40190c60>) (0 . "STYLE") (330 . <图元名: 40190c58>) (5 . "C")
    
12. (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 .
    
13. "STANDARD") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 0.2) (3 .
    
14. "romans.shx") (4 . ""))
    

<br /> 命令: (entget (tblobjname "DIMSTYLE" "standard"))<br /> ((-1 . <图元名: 40190ce0>) (0 . "DIMSTYLE") (105 . "1C") (330 . <图元名: <br /> 40190cb0>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2 <br /> . "STANDARD") (70 . 0) (340 . <图元名: 40190c60>))<br /> <br /> 命令: st STYLE 正在重生成模型。<br /> <br /> 命令: (entget (cdr (assoc 340 (entget (tblobjname "DIMSTYLE" "standard")))))<br /> ((-1 . <图元名: 40190c60>) (0 . "STYLE") (330 . <图元名: 40190c58>) (5 . "C") <br /> (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . <br /> "STANDARD") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 0.2) (3 . <br /> "romans.shx") (4 . ""))<br />

nwlulu

谢谢晓东，谢谢eachy,下面是我写的程序,可以生成一个新的dimstyle,问题是新的dimstyle无法更新字型，如何办？新的dimstyle亦不认同dimblk,如何办？我在尝试写一个可以实时offset,stretch的程序，即按当前比例offset等。

2. 
   
3. (defun MK_dimstyle (scl dstyle)
   
4.   (if (findfile "_dimx.dwg")
   
5.     (progn
   
6.       (command "insert" "_dimx")
   
7.       (command)
   
8.     )
   
9.   )
   
10.   (setq elist (list '(0 . "DIMSTYLE")
    
11.         '(100 . "AcDbSymbolTableRecord")
    
12.         '(100 . "AcDbDimStyleTableRecord")
    
13.          (cons 2 dstyle)
    
14.         '(70 . 0)
    
15.         '(5 . "_dimx")
    
16.         '(6 . "_dimx")
    
17.         '(7 . "_dimx")
    
18.         '(40 . 1.0)
    
19.         '(41 . 1.0)
    
20.         '(42 . 300)
    
21.         '(44 . 150)
    
22.         '(140 . 350)
    
23.         '(141 . 250)
    
24.          (cons 144 (* 0.01 scl))
    
25.         '(147 . 80)
    
26.          )
    
27.           )
    
28.           (entmake elist)
    
29. ；(setq        e1 (tblobjname "dimstyle" dstyle)
    
30. ；        e2 (entget e1)
    
31. ；        e2 (append e2
    
32. ；            (list (cons 5 "_dimx")
    
33. ；                 (cons 6 "_dimx")
    
34. ；              (cons 7 "_dimx")
    
35. ；            )
    
36. ；           )
    
37. ； )
    
38. ;;;    (setq        e2 (entget (cdr (assoc 340 (entget e1))))
    
39. ;;;        e2 (subst (cons 2 "dim") (assoc 2 e2) e2)
    
40. ;;;  )
    
41. ；  (entmod e2)
    
42. ；  (entupd e1)
    
43. ;;;  (entmake '((0 . "STYLE")
    
44. ;;;             (5 . "11")
    
45. ;;;             (100 . "AcDbSymbolTableRecord")
    
46. ;;;             (100 . "AcDbTextStyleTableRecord")
    
47. ;;;             (2 . "Dim")
    
48. ;;;             (70 . 0)
    
49. ;;;             (40 . 0.0)
    
50. ;;;             (41 . 1.0)
    
51. ;;;             (50 . 0.0)
    
52. ;;;             (71 . 0)
    
53. ;;;             (42 . 2.5)
    
54. ;;;             (3 . "dim")
    
55. ;;;             (4 . "hztxt")
    
56. ;;;            )
    
57. ;;;  )
    
58. ；)
    
59. (defun c:bb () (MK_dimstyle 20 "_d20"))

<br /> (defun MK_dimstyle (scl dstyle)<br />   (if (findfile "_dimx.dwg")<br />     (progn<br />       (command "insert" "_dimx")<br />       (command)<br />     )<br />   )<br />   (setq elist (list '(0 . "DIMSTYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbDimStyleTableRecord")<br />          (cons 2 dstyle)<br />         '(70 . 0)<br />         '(5 . "_dimx")<br />         '(6 . "_dimx")<br />         '(7 . "_dimx")<br />         '(40 . 1.0)<br />         '(41 . 1.0)<br />         '(42 . 300)<br />         '(44 . 150)<br />         '(140 . 350)<br />         '(141 . 250)<br />          (cons 144 (* 0.01 scl))<br />         '(147 . 80)<br />          )<br />           )<br />           (entmake elist)<br /> ；(setq        e1 (tblobjname "dimstyle" dstyle)<br /> ；        e2 (entget e1)<br /> ；        e2 (append e2<br /> ；            (list (cons 5 "_dimx")<br /> ；                 (cons 6 "_dimx")<br /> ；              (cons 7 "_dimx")<br /> ；            )<br /> ；           )<br /> ； )<br /> ;;;    (setq        e2 (entget (cdr (assoc 340 (entget e1))))<br /> ;;;        e2 (subst (cons 2 "dim") (assoc 2 e2) e2)<br /> ;;;  )<br /> ；  (entmod e2)<br /> ；  (entupd e1)<br /> ;;;  (entmake '((0 . "STYLE")<br /> ;;;             (5 . "11")<br /> ;;;             (100 . "AcDbSymbolTableRecord")<br /> ;;;             (100 . "AcDbTextStyleTableRecord")<br /> ;;;             (2 . "Dim")<br /> ;;;             (70 . 0)<br /> ;;;             (40 . 0.0)<br /> ;;;             (41 . 1.0)<br /> ;;;             (50 . 0.0)<br /> ;;;             (71 . 0)<br /> ;;;             (42 . 2.5)<br /> ;;;             (3 . "dim")<br /> ;;;             (4 . "hztxt")<br /> ;;;            )<br /> ;;;  )<br /> ；)<br /> (defun c:bb () (MK_dimstyle 20 "_d20"))

梦断江南

应该 (command ".dim" "up" ....)一次。

XDSoft

最初由 nwlulu 发布
[B]谢谢晓东，谢谢eachy,下面是我写的程序,可以生成一个新的dimstyle,问题是新的dimstyle无法更新字型，如何办？新的dimstyle亦不认同dimblk,如何办？我在尝试写一个可以实时offset,stretch的程序，即按当前比例offset?.. [/B]

标注样式中的字型和箭头块是引用，要求引用的对象数据库中必须存在，所以在ENTMAKE标注样式的时候，用到的字型和箭头块程序应该先判断是否存在，如果不存在，创建他们。然后再ENTMAKE标注样式。

nwlulu

在我的程序里不希望出现command，否则字型、尺寸块均很能容易修改。之所以字型和尺寸块不能在entmake里修改，我理解是因为嵌套的缘故，如eachy所列的第二点(340)一项，这种嵌套如何修改？在我的当前图形里已经有了想用的字型与箭头块，可以看我的程序，首先插入了箭头块。这个问题实在困惑我太久了，希望得到各位大侠的帮助。

梦断江南

引自cad帮助：
如果使用 entmod 修改了三维（或早期样式）多段线顶点或块属性，则在屏幕上不会更新全部图元。entupd 函数可以在屏幕上更新修改后的多段线或块。以多段线或块的任一部分的图元名为参数，都可以调用该函数。entupd 适用于块和带有属性的多段线，任何图元都可以调用该函数。该函数重生成屏幕上的该图元（包含所有子图元）。
注意 如果对嵌套图元（块内的图元）或包含嵌套图元的块使用 entupd 函数，则有些图元可能不能重生成。要确保顺利完成重生成操作，必须调用 REGEN 命令。


我想dim "up"是不是用了局部regen？
最近整理以前的lsp,有些重新改写了。发现当修改dimstyle后，用entupd更新dim也不起作用，但是用 dim "up" 就可以更新。
xd知道怎么回事么？
是不是对 dimstyle 也要entupd一次？

XDSoft

2. 
   
3. 
   
4.   (if (findfile "_dimx.dwg")
   
5.     (progn
   
6.       (command "insert" "_dimx")
   
7.       (command)
   
8.     )
   
9.   )
   
10.   
    

<br /> <br />   (if (findfile "_dimx.dwg")<br />     (progn<br />       (command "insert" "_dimx")<br />       (command)<br />     )<br />   )<br />   <br />

你这段代码好像有问题。

首先应该判断块_DIMX是否存在，没有插入。有就略过。

上面的代码有问题，插入不进来，缺参数。如果有块存在，ACAD交互时候会提示你是否重新定义，这些都要判断。

eachy

这样判断

2. (if (and  (findfile "_dimx.dwg")
   
3.             (tblobjname "block" "_dimx")
   
4.     )
   
5. (progn
   
6.    (comand ".insert" "_dimx" '(0 0 0) "1" "1" "0")
   
7.    (entdel (entlast))
   
8.   )
   
9. )
   

(if (and  (findfile "_dimx.dwg")<br />             (tblobjname "block" "_dimx")<br />     )<br /> (progn<br />    (comand ".insert" "_dimx" '(0 0 0) "1" "1" "0")<br />    (entdel (entlast))<br />   )<br /> )<br />

XDSoft

应该把：(tblobjname "block" "_dimx")放到判断的第一个条件。

梦断江南

最初由 eachy 发布
[B]这样判断

2. (if (and  (findfile "_dimx.dwg")
   
3.             (tblobjname "block" "_dimx")
   
4.     )
   
5. (progn
   
6.    (comand ".insert" "_dimx" '(0 0 0) "1" "1" "0")
   
7.    (entdel (entlast))
   
8.   )
   
9. )
   

(if (and  (findfile "_dimx.dwg")<br />             (tblobjname "block" "_dimx")<br />     )<br /> (progn<br />    (comand ".insert" "_dimx" '(0 0 0) "1" "1" "0")<br />    (entdel (entlast))<br />   )<br /> )<br />

[/B]

[B]  用 (comand ".insert" "_dimx" ^c)  就已经可以得到块定义了。

2. 
   
3. (if (not (tblobjname "block" "_dimx"))
   
4.   (if (findfile "_dimx.dwg")
   
5.       (command ".insert" "_dimx" ^c)
   
6.       (princ "\n没有块定义或块文件！")
   
7.   )
   
8. )

<br /> (if (not (tblobjname "block" "_dimx"))<br />   (if (findfile "_dimx.dwg") <br />       (command ".insert" "_dimx" ^c)<br />       (princ "\n没有块定义或块文件！")<br />   )<br /> )

[/B]

nwlulu

关于箭头块我认为不是问题关键，此段代码我曾略去过，而在图内插入，亦无法在entmake中用'(5 . "_dimx")等生成，如前eachy所写：
命令: (entget (tblobjname "DIMSTYLE" "standard"))
((-1 . <图元名: 40190ce0>) (0 . "DIMSTYLE") (105 . "1C") (330 . <图元名:
40190cb0>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2
. "STANDARD") (70 . 0) (340 . <图元名: 40190c60>))
此中并无任何箭头块属性。在Acad2002中若以acadiso.dwt为模板，可以有比上例多一些的DXF代码，但无箭头块和字型，字型在(340 . <图元名: 40190c60>)中，我希望各位能告知这种嵌套的代码有否方法更新，无论entmod拟或entupd之类。听探索者公司的一位朋友说，晓东可以编出天正一样的软件，那么天正这个问题是怎么实现的呢？上面的代码我曾这样写过：
(if (null (tblsearch "block" "_dimx"))
  (if (findfile "_dimx.dwg")
    (progn
      (command "insert" "_dimx")
      (command)
    )
  )
)
我以前的写法应该也没什么问题，它的作用是插入一个块，但在提示插入点或其它什么时cancel，此时在图中块表里已有该块，但在图形中无，免得再删除它。

cy956

我也喜欢用entmake，因为可以直接设定图层色线，也快，
不过dimstyle和block等例外，因为entmake更麻烦。
你可以参考一下stdlib的entmake写法。

nwlulu

STDLIB看过了，真的很复杂，看人家写的程序，觉得我是在浪费青春，自已程序写得太糟，没有层次，什么时候国产软件能达到人家那个水平呢？写程序是种乐趣，但一点点小问题就难住了，很无奈！