Tworzenie bloku w lisp oraz instrukcja warunkowa


Recommended Posts

Witam 

Potrzebuje pomocy jak zmodyfikować tak, aby instrukcja warunkowa sprawdzała czy jest warstwa "okna".

Jak jest warstwa "okna" to program jej nie tworzy , jak nie ma to ją tworzy.

Oraz mam pytanie czy da się to okno utworzyć jako całość czyli np. jako blok.

Bo w tym momencie to on tworzy mi jako poszczególne linie. 
Z góry dzięki za pomoc. 

 

Pb.lsp

Link to comment
Share on other sites

Dodałem łączenie elementów jako blok


(setq last_mem (entlast) )	; zapamiętujemy co było ostatnio narysowane, przyda się później
; ..... rysowanie
(setq lastent (if (null last_mem) ; (setq lastent (entnext ) )
					(entnext )	
					(entnext last_mem)
			) 
)
		
(setq Selset (ssadd ) )	; przygotowujemy zbiór elementów do dodania do bloku
(while (not(null lastent ) )	
	(setq Selset (ssadd lastent Selset) )	; dodajemy kolejny element do zbioru 
	(setq lastent (entnext lastent))		; szukamy następnego narysowanego elementu
)
	  
(setq nr 1 )
(while (tblsearch "BLOCK" (setq nazwa (strcat "okno" (itoa nr ) ) ))
	(setq nr (1+ nr) )
)
		
; tworzymy blok (definicję) z narysowanych elementów
(command "_.-block" nazwa "_non" PU Selset "")
		
; wstawiamy blok
(command "_insert" nazwa PU "" "" "")
      

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...