CADsite forum

Is het mogelijk om na het commando copybase, de rectancle te verwijderen ? Door middel van selecteren en verwijderen of eventueel knippen ?  Alvast bedankt.



(defun C:z1 ( / p1)
  (setq p1 (getpoint "\nEerste punt:"))
  (command "rectang" p1 (getpoint p1 "\nTweede punt: "))
  (command "copybase" "0,0,0" "L" "")
  (princ)
)
C:z1

Citaat van: EddyBeerke op ma 12 10 2015, 13:24:05
Dat komt omdat je de "( / )" bent vergeten...
(defun c:commandname ( / )
; programma
)
Dit zie je wel als je mijn code bekijkt...

Dankje zag het verschil eerst niet

Eddy bedankt voor de uitleg, begrijp nu iets meer wat jij en ik aan het doen zijn. Vlisp was mij al bekend en daarin teste ik de volgende 2 regels:

_$ (command "pasteorig")

_$ (command "zoom" "o" "l" "")

Los van elkaar werken deze uitstekend echter als ik deze samen voeg tot een lisp:

(defun C:z2
  (command "pasteorig")
  (command "zoom" "o" "l" "")
)
C:z2

Echter krijg ik dan de volgende fout melding:

error; syntx error  + error: too few arguments

Sorry ben vergeten te melden dat de volgende code in een andere tekening gebruik:

(defun C:z2   
(command "pasteorig" "") 
(command "zoom" "o" "l" "") 
(princ))


Het probleem:

In tekening 1 ben ik aan het werk.  Dit is een gbkn tekening van een gemeente. Soms ben ik ver ingezoomd om zo bebouwing aan te passen. In tekening 1 staat niet altijd alle informatie om dat dit nie nodig is.  In tekening 2 (op andere scherm) is deze informatie zichtbaar en soms wel handig om keuzes te make. Omdat ik in tekening 1 niet altijd zie waar ik moet ik uizoomen om precies te zien waar ik ben.  Dit vertraagt en daarom lijkt mij het handig om tekening 2 meteen naar juiste punt te zoomen om extra informatie te zien.

Om dit te verwezelijke leek mij het slim om in teken 1 dus een object te tekenen en die te copieren op coordinaten.

In  tekening 2 te plakken en te zoomen naar object en dat het laatste.


Hiervoor moet ik 2 aparte lisp routines hebben. De eeste is klaar dankzij Eddybeerke

Echter lukt mij het niet om de 2de te maken met

(defun C:z2   
(command "pasteorig" "") 
(command "zoom" "o" "l" "") 
(princ))

Harstikke bedankt voor de snelle reactie.

Was vergeten na jou code C:znp te plaatsen nu is het opgelost bedankt !

Snap zelf nog niet helemaal waarom het nu werkt maar dat zal ik eens gaan uitzoeken haha.


Ik heb zelf wat lopen puzzelen maar snap niet waarom het mij niet lukt . Ik zou nu graag een andere lisp routinne schrijven om ervoor te zorgen dat met het vorige gekopieerde object nu geplaatst wordt met coordinaten en erna gezoomd wordt naar dit object. Ik zelf dacht dat dit kan met de volgende lisp:

(defun C:z2
  (command "pasteorig" "")
  (command "zoom" "o" "l" "")
  (princ)
)
C:z2

Echter mis ik denk een belangerijke factor en bouw ik de lisp verkeerd op. Dus graag nog een keer hulp hoe ik dit moet coderen. Alvast bedankt !

Beste lezer,

Ik ben sinds 2/3 jaar full time bezig met Cad. Daarbij heb ik gemerkt dat veel handelingen herhaald moeten worden die ik graag zou optimaliseren. Echter heb ik te weinig kennis om een goede Lisp te schrijven en wat er allemaal mogelijk is.

Is het mogelijk om meerder command is een lisp routine uit te laten voeren ? Ik wil namelijk graag het volgende verwerken in een lisp ( uiteindelijk een button)

1.  teken een rectangle ( zelf 2 punten bepalen)
- (command "rectang")

2. select last object

(setq ss1 (ssget "L"))

3. copy dat object with basepoint 0,0

(command "copybase" "0,0,0")

einde lisp.

Deze 3 dingen lukt mij wel om los in een lisp te krijgen. Echter lukt mij het niet om ze alle 3 in 1 lisp te krijgen. U zou me veel helpen om mij uit te leggen of het mogelijk is hoe het moet. Alvast bedankt.

Het probleem:

In tekening 1 ben ik aan het werk.  Dit is een gbkn tekening van een gemeente. Soms ben ik ver ingezoomd om zo bebouwing aan te passen. In tekening 1 staat niet altijd alle informatie om dat dit nie nodig is.  In tekening 2 (op andere scherm) is deze informatie zichtbaar en soms wel handig om keuzes te make. Omdat ik in tekening 1 niet altijd zie waar ik moet ik uizoomen om precies te zien waar ik ben.  Dit vertraagt en daarom lijkt mij het handig om tekening 2 meteen naar juiste punt te zoomen om extra informatie te zien.

Om dit te verwezelijke leek mij het slim om in teken 1 dus een object te tekenen en die te copieren op coordinaten.

In  tekening 2 te plakken en te zoomen naar object en dat het laatste.


Hiervoor moet ik 2 aparte lisp routines hebben. De eeste is klaar dankzij Eddybeerke

Echter lukt mij het niet om de 2de te maken met

(defun C:z2   
(command "pasteorig" "") 
(command "zoom" "o" "l" "") 
(princ))