| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
|
|
Autor
|
Thema: bemaßung (600 mal gelesen)
|
fca_mi2
Mitglied
Bauingenieur
   Beiträge: 508
Registriert: 10.01.2003 ACAD2018
|
erstellt am: 09. Jun. 2005 08:05  <-- editieren / zitieren -->   Unities abgeben:          
hallo, wenn ich mit folgendem code eine bemaßung erzeuge, wird die systemvariable "dimscale" nicht berücksichtigt, d. h. sie wird nicht
richtig skaliert: ;gc70: =33(ausgerichtet) =32(linear)
;(fc_bemaßung "test" (getpoint) 33 "FC_BEM18" (getpoint) (getpoint) 0.0)
;(fc_bemaßung layer epm gc70 bemstil bemp1 bemp2 winkel)
;winkel in grad
(defun fc_bemaßung (layer epm gc70 bemstil bemp1 bemp2 winkel / winkel layer epm gc70 bemstil liste winkelbog)
(setq winkelbog (* (/ winkel 180.0) 3.1415927))
(if (= gc70 33)
(setq liste
(list
'(0 . "DIMENSION")
'(100 . "AcDbEntity")
(cons 8 layer)
'(100 . "AcDbDimension")
(cons 10 epm)
(cons 70 gc70)
(cons 3 bemstil)
'(100 . "AcDbAlignedDimension")
(cons 13 bemp1)
(cons 14 bemp2)
(cons 50 winkelbog)
))
);if
(if (= gc70 32)
(setq liste
(list
'(0 . "DIMENSION")
'(100 . "AcDbEntity")
(cons 8 layer)
'(100 . "AcDbDimension")
(cons 10 epm)
(cons 70 gc70)
(cons 3 bemstil)
'(100 . "AcDbAlignedDimension")
(cons 13 bemp1)
(cons 14 bemp2)
(cons 50 winkelbog)
'(100 . "AcDbRotatedDimension")
))
);if
(entmake liste)
);defun ------------------
MfG
Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm
Moderator
良い精神
    
Beiträge: 22675
Registriert: 03.06.2002 Alles
|
erstellt am: 09. Jun. 2005 08:29 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 
Der Wert für DimScale wird aus dem angegebenen Bemaßungsstil genommen und das sollte auch bei dir so sein.. (eben getestet, kenne mich sonst nicht aus damit, aber..) PS.: Du stellst keine Fragen und erklärst nicht was bei dir passiert,
bist doch schon ewig in Foren unterwegs... beim nächsten Mal hmm? 
<ist dann eben einfach besser zu helfen> Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
fca_mi2
Mitglied
Bauingenieur
Beiträge: 508
Registriert: 10.01.2003 ACAD2018
|
erstellt am: 15. Jun. 2005 09:22 <-- editieren / zitieren --> Unities abgeben:
hallo, was ich sagen wollte ist, daß meine bemaßung nicht richtig, bzw. gar nicht, skaliert wird. ich gehe folgendermaßen vor:
1. gewünschten bemstil aktuell setzen
2. sys-var "dimscale" auf z.b. 0.25
3. bemaßung w. o. beschrieben erzeugen der skalierfaktor bleibt aber auf 1.0 ------------------
MfG
Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
