Ketxu,
You could use the 'Arc->Bulge' function from my Bulge Conversion functions to convert the return of the '3PArc' function to units suitable for use with LWPolylines.
Shame I've not been consistent with the order of my arguments/returns. I fail. I've updated my earlier post. LeeMac, i've just came back home from site.. Oh, i don't know what to say... Just thank you very very muchi love you ^^ ketxu, see if this drawing is OK, and if it is use this code to make lisp for entmakex drawn objects :
(defun c:drawit ( / ss ssh acsel ssn k ent entl entll entlll f)(vl-load-com)(if (setq ssh (ssget "X" '((0 . "HATCH"))))(progn(vlax-for obj (setq acsel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))(vla-put-associativehatch obj :vlax-false))(vla-delete acsel))) (setq ss (ssget "X"))(setq ssn (sslength ss))(setq f (open "C:/mklist.lsp" "w"))(setq k -1)(repeat ssn(setq k (1+ k))(setq ent (ssname ss k))(setq entl (entget ent))(foreach x entl(if (and (/= (cdr (assoc 0 entl)) "HATCH") (/= (car x) -1) (/= (car x) 1) (/= (car x) 2) (/= (car x) 5) (/= (car x)(/= (car x) 102) (/= (car x) 330) (/= (car x) 360))(setq entll (cons x entll)))(if (and (= (cdr (assoc 0 entl)) "HATCH") (/= (car x) -1) (/= (car x) 5) (/= (car x)(/= (car x) 102) (/= (car x) 330) (/= (car x) 360))(setq entll (cons x entll))))(setq entll (reverse entll))(setq entll (list (list 'quote entll)))(setq entlll (cons 'entmakex entll))(print entlll f)(setq entll nil)(setq entlll nil))(close f)(princ))See attached *.dwg...
Regards, M.R.
Drawing-ketxu.dwg
Model-ketxu.dwg Updated and corrected *.dwg files - added model...
M.R.
Marko Ribar, d.i.a. (graduated engineer of architecture)
lol thanks Ketxu
页:
1
[2]