Solved! Go to Solution.
I reproduced your issue, it definitely is a bug, thanks for your report, I will log it as a defect.
did anyone find a solution for this? It's already logged with development from August 2013 but still no solution.
It seems many users are blocked by the exporting issue. Regarding the data attached in previous post, there is a solution to address the issue. But please pay attention, below change on exporting setting will impact all spline objects, it will replace spline with polylines. We can't guarantee the results for any cases. Please try belows only when you face exporting issues.
The way to
Save exported AutoCAD DWG file, and check the result.
If you still can't solve the issue after changing, please send your dataset to us, it will be very helpful for development team to get the final solution.
Thanks in advance.
I wish someone told me this half year ago... I was looking for that "replace splines" option everywhere but in that location.
I'm using Inventor 2014 pro and the problem remains :
left : inventor | right : autocad and (part) modified ini
Thanks for any help
Until a patch is available, I can't bear having a durty dwg
(defun c:cll( / acadob count aob listSpline alay lPoints nbp p1 p2 okList) ;remove non Spline (setq acadob(vla-get-activeDocument(vlax-get-acad-object
))) (setq okList (ssget "x" '( (-4 . "<NOT")(-4 . "<OR") (0 . "SPLINE") (-4 . "OR>")(-4 . "NOT>")) ) ) ;change Spline (setq count 0) (repeat (sslength okList) (setq aob (vlax-ename->vla-object(ssname okList count))) (vla-put-visible aob 0) (setq count (1+ count)) ) (defun makeLine ( point1 point2 lay / ) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") (cons 8 lay) '(100 . "AcDbLine") point1 point2 ) ) ) (Prompt "\nSelect Spline to change..") (setq listSpline (ssget '((100 . "AcDbSpline")))) (setq count 0) (repeat (sslength listSpline) (setq aob (vlax-ename->vla-object(ssname listSpline count))) (setq alay (vla-get-layer aob)) (setq lpoints (vlax-safearray->list(vlax-variant-value(vla-get-c ontrolpoints aob)))) (setq nbp (length lPoints)) (setq p1 (list 10 (nth 0 lPoints) (nth 1 lPoints) 0.0) p2 (list 11 (nth (- nbp 3) lPoints) (nth (- nbp 2) lPoints) 0.0 ) ) (makeLine p1 p2 alay) (setq count(1+ count)) ) (setvar "cmdecho" 0) (command "erase" listSpline "") (setvar "cmdecho" 1) ;reset (setq count 0) (repeat (sslength okList) (setq aob (vlax-ename->vla-object(ssname okList count))) (vla-put-visible aob -1) (setq count (1+ count)) ) (princ) )
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register