jim78b
Guest
Ich entschuldige mich, aber ich habe einige Listen, die die einzige Auswahl haben, die Sie nicht ändern konnten, die Lispe dieser Stelle?
Eins ist: pib.lsp (nur wählen Sie ein Produkt, ich hoffe, es funktioniert mit geschachtelten Blöcken und dient dazu, alle Polylinien in Dicke 0 zu setzen)
(Defun c
ib (/s)
(vl-load-com)
(princ "\n wählen Sie den Block mit einer Polylinie)
(wenn (und (setq s) (ssget "_+.:s" ((0. "Insert"))))))
(setq s (cdr (assoc 2 (entget (ssname s 0)))
)
(Progn)
(vlax-for)
oder
(vla-item)
(vla-get-activedocument (vlax-get-acad-Objekt))
)
♪
)
;;(setq oder (vla-item (vla-item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))))))))))))))))))))))
(wenn (= (vla-get-objectname o) "acdbpolyline")
(vl-catch-all-apply 'vla-put-constantwidth (list or 0.))
)
)
(foreach x (mapcar (Funktion cadr)
(ssnamex)
)
(vla-update (vlax-ename->vla-object x)
)
)
)
(princ)
)
Eins ist: pib.lsp (nur wählen Sie ein Produkt, ich hoffe, es funktioniert mit geschachtelten Blöcken und dient dazu, alle Polylinien in Dicke 0 zu setzen)
(Defun c
ib (/s)(vl-load-com)
(princ "\n wählen Sie den Block mit einer Polylinie)
(wenn (und (setq s) (ssget "_+.:s" ((0. "Insert"))))))
(setq s (cdr (assoc 2 (entget (ssname s 0)))
)
(Progn)
(vlax-for)
oder
(vla-item)
(vla-get-activedocument (vlax-get-acad-Objekt))
)
♪
)
;;(setq oder (vla-item (vla-item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))))))))))))))))))))))
(wenn (= (vla-get-objectname o) "acdbpolyline")
(vl-catch-all-apply 'vla-put-constantwidth (list or 0.))
)
)
(foreach x (mapcar (Funktion cadr)
(ssnamex)
)
(vla-update (vlax-ename->vla-object x)
)
)
)
(princ)
)