dimstyle aanmaken met entmake

[Reimer]

Om ontbrekende dimstyles in te voegen lijkt het mij handig om deze te laten maken met ENTMAKE.
Met behulp van (tblsearch "DIMSTYLE" "reimer")  heb ik de eigenschappen van mijn style opgevraagd.
Hier heb ik simpelweg (entmake '( aan toegevoegd. Ik dacht dat dit genoeg zou zijn, maar helaas.
Vervolgens heb ik nog wel (340 . <Entity name: ..>) verwijderd. Ik neem aan dat ik niet 2x dezelfde naam in één tekening kan hebben. Maar het mocht niet baten.

Kan iemand mij verder helpen? Is het mogelijk om met entmake een dimstyle te maken?

Reimer

Uitvoer tblsearch:
((0 . "DIMSTYLE") (2 . "Reimer") (70 . 0) (3 . "") (4 . "") (5 . "") (6 . "")
(7 . "") (40 . 0.001) (41 . 2.0) (42 . 3.0) (43 . 7.5) (44 . 3.0) (45 . 0.0)
(46 . 1.25) (47 . 0.0) (48 . 0.0) (140 . 2.5) (141 . 0.0) (142 . 0.0) (143 .
0.039) (144 . 1.0) (145 . 1.0) (146 . 1.0) (147 . 1.25) (71 . 0) (72 . 0) (73 .
0) (74 . 0) (75 . 1) (76 . 1) (77 . 1) (78 . 0) (170 . 0) (171 . 2) (172 . 1)
(173 . 0) (174 . 1) (175 . 0) (176 . 256) (177 . 256) (178 . 256) (270 . 2)
(271 . 2) (272 . 2) (273 . 2) (274 . 2) (340 . <Entity name: 70c9cc88>) (275 .
0) (280 . 0) (281 . 0) (282 . 0) (283 . 0) (284 . 0) (285 . 0) (286 . 0) (287 .
4) (288 . 0))

Entmake:
(entmake '((0 . "DIMSTYLE") (2 . "Reimer") (70 . 0) (3 . "") (4 . "") (5 . "") (6 . "")
(7 . "") (40 . 0.001) (41 . 2.0) (42 . 3.0) (43 . 7.5) (44 . 3.0) (45 . 0.0)
(46 . 1.25) (47 . 0.0) (48 . 0.0) (140 . 2.5) (141 . 0.0) (142 . 0.0) (143 .
0.039) (144 . 1.0) (145 . 1.0) (146 . 1.0) (147 . 1.25) (71 . 0) (72 . 0) (73 .
0) (74 . 0) (75 . 1) (76 . 1) (77 . 1) (78 . 0) (170 . 0) (171 . 2) (172 . 1)
(173 . 0) (174 . 1) (175 . 0) (176 . 256) (177 . 256) (178 . 256) (270 . 2)
(271 . 2) (272 . 2) (273 . 2) (274 . 2) (275 .
0) (280 . 0) (281 . 0) (282 . 0) (283 . 0) (284 . 0) (285 . 0) (286 . 0) (287 .
4) (288 . 0)))

<edit> de eerste versie bevatte een eigen block als pijlsymbool, deze heb ik nu ingesteld als standaard gevulde pijl <edit>

[roy_043]

Je kunt volgens mij beter beginnen met het resultaat van:

Code Selecteer Uitklappen

(entget (tblobjname "DIMSTYLE" "Reimer") '("*"))
Deze lijst is vollediger dan het resultaat van tblsearch.

De entitynames moet je inderdaad verwijderen. Deze worden namelijk per tekensessie opnieuw bepaald en zijn dus niet constant.

Group-code 340 is echter een verwijzing naar een text-style...

Als ik jouw code gebruik krijg ik een foutmelding (The application became unstable...).

Als ik een aangepaste versie van jouw code gebruik, waarbij alleen group-code 340 is toegevoegd, gaat het wel goed. Maar ik gebruik Bricscad, het kan best zijn dat AutoCAD nog steeds moeilijk doet.

Code Selecteer Uitklappen

(entmake
  (list
    '(0 . "DIMSTYLE")
    '(2 . "Reimer")
    '(70 . 0)
    '(3 . "")
    '(4 . "")
    '(5 . "")
    '(6 . "")
    '(7 . "")
    '(40 . 0.001)
    '(41 . 2.0)
    '(42 . 3.0)
    '(43 . 7.5)
    '(44 . 3.0)
    '(45 . 0.0)
    '(46 . 1.25)
    '(47 . 0.0)
    '(48 . 0.0)
    '(140 . 2.5)
    '(141 . 0.0)
    '(142 . 0.0)
    '(143 . 0.039)
    '(144 . 1.0)
    '(145 . 1.0)
    '(146 . 1.0)
    '(147 . 1.25)
    '(71 . 0)
    '(72 . 0)
    '(73 . 0)
    '(74 . 0)
    '(75 . 1)
    '(76 . 1)
    '(77 . 1)
    '(78 . 0)
    '(170 . 0)
    '(171 . 2)
    '(172 . 1)
    '(173 . 0)
    '(174 . 1)
    '(175 . 0)
    '(176 . 256)
    '(177 . 256)
    '(178 . 256)
    '(270 . 2)
    '(271 . 2)
    '(272 . 2)
    '(273 . 2)
    '(274 . 2)
    (cons 340 (tblobjname "STYLE" "Standard")) ; je moet hier natuurlijk een bestaande text-style gebruiken
    '(275 . 0)
    '(280 . 0)
    '(281 . 0)
    '(282 . 0)
    '(283 . 0)
    '(284 . 0)
    '(285 . 0)
    '(286 . 0)
    '(287 . 4)
    '(288 . 0)
  )
)

[HofCAD]

Beste Reimer,

Zie voor werkende voorbeelden van entmake:
http://hi.baidu.com/123523058/blog/item/d30581f8ecf0f309d8f9fd61.html
en
http://www.cadtutor.net/forum/showthread.php?50845-dimension-style-create-(plz-chk-my-new-lisp-amp-how-to-improve)
bij DSTYLE_DIMSTYLE_CREATE moet men zorgen dat het pijlpuntblock in de
blocklist aanwezig is.
Bijv. men plaatst eerst een bemating met pijlpunt "_none" en daarna
(DSTYLE_DIMSTYLE_CREATE "MijnDimStijl" 5.0 "_none" "standard")

Met vriendelijke groet, HofCAD CSI.

[Reimer]

Heren,

dat klinkt beide goed. Ik ga het volgende week proberen. Wederom hartelijk bedankt! 

Reimer