OpenDCL Color_swatch

[EddyBeerke]

Ik heb deze code ook maar gelijk op een eigen tool toegepast 
BTW, De code van het selecteren komt van de vrienden van Autodesk -> de help.

Het is trouwens nier celayer maar clayer
Volgens mij wil je dit:

Code Selecteer Uitklappen

(DEFUN C:LaC (/ acadObj doc modelSpace curlay err returnObj basePnt)
(vl-load-com)
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
  (setq modelSpace (vla-get-ModelSpace doc))
(setq curlay (getvar "clayer"))
(while (= (setq err (vl-catch-all-apply 'vla-GetEntity (list (vla-get-Utility doc) 'returnObj 'basePnt "Select an object"))) nil)
(vla-put-layer returnObj curlay)
(vla-Update returnObj)
)
(princ)
)

[gery]

Het laden en toewijzen van objecten werkt nu alleen ná activeren van de functie. Echter, hij zou ontzettend cool zijn als het ook zou werken als je eerst objecten zou hebben geselecteerd.

Daarvoor gebruik ik dit:

Code Selecteer Uitklappen

(if (not (setq #ss (ssget "_I"))) (setq #ss (ssget)))

[cadtools@gmail.com]

Bedankt AutoCAD vrienden!
Dat regeltje werkt super om meer dan een element te kunnen selecteren! Bedankt Gery (en Eddy natuurlijk ook) Er zit in onderstaande nog wel command call in maar ik kan er volgens mij prima mee werken.

Code Selecteer Uitklappen


(DEFUN C:LaC (/)
(if (not (setq #ss (ssget "_I"))) (setq #ss (ssget)))
(command "LAYCUR" #ss "" ))


En een keyboard entry "P" na indrukken knop werkt eigenlijk ook wel prima.
Je moet het even weten.

[roy_043]

Of:

Code Selecteer Uitklappen

(defun c:Lac ( / ss)
  (if
    (setq ss
      (if (zerop (getvar 'pickfirst))
        (progn (sssetfirst nil nil) (ssget ":L"))
        (ssget "_:L-I")
      )
    )
    (command "_.laycur" ss "")
  )
  (princ)
)

De toevoeging ":L" in (ssget "_:L-I") heeft niet één maar twee effecten: elementen op gelockte lagen worden niet geselecteerd, maar bovendien wordt de gebruiker alsnog om een selectie gevraagd als er geen preselectie is. Dat laatste gebeurt niet bij (ssget "_I").

[roy_043]

BTW: Deze topic zou eigenlijk verplaatst moeten worden naar het Autolisp gedeelte van het forum.

[cadtools@gmail.com]

Merci