| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: lisp (292 mal gelesen)
|
fca_mi2
Mitglied
Bauingenieur
   Beiträge: 505
Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 28. Feb. 2003 08:48  <-- editieren / zitieren -->   Unities abgeben:          
ich bastel gerade an einer routine mit der ich schnittkanten kenntlich machen möchte. am anfang soll es direkt möglich sein einen punkt anzuklicken oder den linientypfaktor neu einzustellen. wie kriege ich das hin ? ------------------
- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator
Beiträge: 2490
Registriert: 02.11.2001 Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 28. Feb. 2003 09:08 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 
Hi, Punkt wählen: Vgl. Acad-Help "getpoint", "entsel" Linientyp ändern: Gruppencode 6 enthält den Linientyp eines Entitys (nicht vorhanden, wenn "VonLayer". Gruppencodes auslesen für ein zu klickendes Objekt: "(entget (car (entsel)))". Mit: "(cdr (assoc 6 (entget (car (entsel)))))" bekommst Du nur den Linientyp ("nil" wenn "VonLayer"). Dann brauchst Du nur noch mal in der Hilfe nach "subst" und "entmod" gucken.
------------------
Ciao,
Marc  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fca_mi2
Mitglied
Bauingenieur
Beiträge: 505
Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 28. Feb. 2003 09:13 <-- editieren / zitieren --> Unities abgeben:
sorry, ich habe mich wahrscheinlich schlecht ausgedrückt : die funktionen zur eingabe eines punktes und das ändern des ltyps sind mir schon bekannt. ich möchte, wenn das programm startet die option, dass ich entweder den ersten punkt sofort anklicken oder den linientypfaktor ändern kann. so verständlich ? ------------------
- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator
Beiträge: 2490
Registriert: 02.11.2001 Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 28. Feb. 2003 09:20 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
fca_mi2
Mitglied
Bauingenieur
Beiträge: 505
Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 28. Feb. 2003 09:26 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator
Beiträge: 2490
Registriert: 02.11.2001 Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 28. Feb. 2003 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
Code:
(initget "Linientypfaktor")
(setq XX
(getpoint
"\nPunkt wählen oder [Linientypfaktor] setzen: <Linientypfaktor>"
) ;_ end of entsel
) ;_ end of setq
(cond
((or (not XX) (= xx "Linientypfaktor")) (setq YY (getreal "\nLinientypfaktor?: ")))
(t Mach-was-mit-Punkt)
) ;_ end of cond
------------------
Ciao,
Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator
Beiträge: 2490
Registriert: 02.11.2001 Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 28. Feb. 2003 09:53 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
Hi, oder so: Code:
(initget 128)
(setq XX
(getpoint
"\nPunkt wählen oder Linientypfaktor eingeben: "
) ;_ end of entsel
) ;_ end of setq
(cond
((or (null xx)(= xx ""))(princ "\nNix gewählt, nix gemacht..."))
((= (type xx) 'LIST) (princ "\nMach was mit Punkt..."))
((numberp (read xx)) (princ "\nMach was mit Linientypfaktor..."))
(t (princ "\nUngültig..."))
) ;_ end of cond
Da wird dann halt nicht noch dumm gefragt... ------------------
Ciao,
Marc [Diese Nachricht wurde von marc.scherer am 28. Februar 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fca_mi2
Mitglied
Bauingenieur
Beiträge: 505
Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 28. Feb. 2003 10:15 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
