Ersetzen von Entitätspunkten mit Kreisen

[franco75]

Guten Abend.
Ich bin neu für die Gemeinschaft und es scheint mir zu verstehen, im Vergleich zu der durchschnittlichen Ebene, sogar ziemlich rückständig.
Ich brauche Hilfe, um etwas zu tun, das dumm aussieht, aber es wird viel Arbeit machen.
Ich muss viele Autocad-Dateien auf eine Software laden, um Schneiden Websites vorzubereiten. die Software erkennt die Punktentitäten nicht und daher muss ich eine Unendlichkeit von Punkten durch Kreise ersetzen, zu denen ich wählen muss, ob ich den Durchmesser 2 mm oder 4 mm geben muss, da die Maschine zwei Stempel hat. Ich weiß, dass es möglich ist, Makros zu realisieren, die dies automatisch tun, ich möchte in der Lage sein, einen interessierenden Bereich auszuwählen und gehen, um einen Kreis für jeden Punkt der spezifizierten Schicht zu setzen, die in der Phase des Einfügens des Durchmessers des Kreises definiert. Ich weiß nichts über die Programmierung von Lisp und Vba, kann mir jemand helfen?
Danke.
Frankreich

 

[GP.]

beweist das...

(fün c:pt2cer ( / cmd d p n)
(Setq cmd)
(Setvar 'cmdecho 0)
(Befehl "_.undo" "_begin")
(Initget (+ 2 4))
(d Gold (Setq d 2))
(setq d)
(getdist (strcat "\ndiamentro dei cerchi <" (rtos d 2 0)": ")
(d )
)
(Prompt "\nselezioneare i punta")
(setq pp (ssget '(0 . "point")))
(falls S
(Repeat (setq n (sslength pp))
(setq p (ssname pp (setq n (1-n))))
(entmake)
(Liste)
(cons 0 "circle")
(cons 10 (cdr (ass 10)))
(cons 40 (* 0,5 d)
)
)
(Anhang p)
)
)
(Befehl "_.undo" "_end")
(Setvar 'cmdecho cmd)
)

 

[franco75]

Vielen Dank. Ich versuche es, dann lass ich dich wissen