Új hozzászólás Aktív témák

• #2424 pf-prg csendes tag mdraco #2417

  Új Válasz 2012-12-04 10:08:17 #2424

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pf-prg

  csendes tag

  válasz mdraco #2417 üzenetére

  Hello!

  Használd a _chprop (TVÁLT) parancsot.

  Ha mégis AutoLisp kell, akkor az alábbi lisp függvény mintájára lehet megoldani:

  ; A vastagit függvény az ujvastagsag paraméterben kapja meg a kívánt vastagságot.
  ; Példa: (vastagit 100)
  (defun vastagit (ujvastagsag / halmaz q elem eleml)
  ; A felhasználó által kiválasztott rajzelemek közül az alábbi OR (vagy) szűrő
  ; feltételben felsorolt rajzelemtípusúak lesznek feldolgozva.
  ; Ha a felhasználó nem választ ki megfelelő rajzelemet, a végrehajtás végetér.
  (if
  (setq halmaz
  (ssget
  '(
  (-4 . "<OR")
  (0 . "LINE")
  (0 . "POLYLINE")
  (0 . "LWPOLYLINE")
  (0 . "ARC")
  (0 . "CIRCLE")
  (0 . "ELLIPSE")
  (0 . "SPLINE")
  (-4 . "OR>")
  )
  )
  )
  (progn
  (setq q -1)
  (while (setq q (1+ q) elem (ssname halmaz q))
  (setq eleml (entget elem))
  (if (assoc 370 eleml)
  (entmod (subst (cons 370 ujvastagsag) (assoc 370 eleml) eleml))
  (entmod (append eleml (list (cons 370 ujvastagsag))))
  )
  )
  )
  )
  (princ)
  )

  [ Szerkesztve ]

Új hozzászólás Aktív témák