[帮助]拔出此螺栓

Lee Mac · 发表于 2022-7-6 09:19:35

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.

Lee Mac · 发表于 2022-7-6 09:25:19

I've updated my earlier post.

ketxu · 发表于 2022-7-6 09:29:02

LeeMac, i've just came back home from site.. Oh, i don't know what to say... Just thank you very very much i love you ^^

marko_ribar · 发表于 2022-7-6 09:32:28

ketxu, see if this drawing is OK, and if it is use this code to make lisp for entmakex drawn objects :

copy

(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