CAD programy 4M
Změna šířky všech křivek v CAD výkrese
Nastaví novou šířku všech křivek ve výkrese typu LWPOLYLINE na 0 (nula) nebo na jinou šířku definovanou v proměnné "newwidth" na začátku algoritmu. Po načtení aplikace je k dispozici nový příkaz PLN.;Nastaví jednotnou šířku všech entit typu LWPOLYLINE (DEFUN C:PLN(/ sset1 pocet index en1 xscale yscale zscale) (setq newwidth 0) ;Nastavení nové šířky na 0 ;Vyber vsech entit typu LWPOLYLINE (setq sset1 (ssget "X" (list (cons 0 "LWPOLYLINE")) )) (setq pocet (sslength sset1)) (setq index 0) ;Úprava na novou šířku (repeat pocet (setq en1 (entget (ssname sset1 index))) (setq index (+ index 1)) (setq en1 (subst (cons 40 newwidth) (assoc 40 en1) en1)) (setq en1 (subst (cons 41 newwidth) (assoc 41 en1) en1)) (setq en1 (subst (cons 43 newwidth) (assoc 43 en1) en1)) (entmod en1) ; Modifikace entity ) (command "_re") ; Regenerace výkresu (princ "\nNastaveni nove sirky LWPOLYLINE: Hotovo.") (princ) )
Soubor ke stažení