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