Recommended Posts

Posted

Witam.

Przerabiam sobie stare lispy działające na AutCAD do ZwCAD. Napotkałem na następującą rozbieżność:

  (foreach xNazwa (list "dashed" "dashdot" "hidden2" "center2")
    (if	(not (tblsearch "ltype" xNazwa))
	  (vla-load	(vla-get-linetypes
					(vla-get-activeDocument (vlax-get-acad-object))
				)
				xNazwa
				(if (= cAplikacja "ZWCAD")
					"zwcad.lin"
					"acad.lin"
				)
      )
    )
  )

wywala mi błąd przy vla-load

error: Automation Error. Description was not provided.

zmienna cAplikacja jest ustawiana następująco

(vl-load-com)
(setq cAplikacja (vlax-get-property (vlax-get-acad-object) 'name))

Czy specyfikacja funkcji (vla-load) w zwcad różni się od tej z AutoCAD. Szukałem w helpach do ZwCAD'a ale nie znalazłem nic na temat (vla-load) Może jakiś namiar na źródło z dokumentacji ZwCAD'a?

 

Posted

Działa. Widzę jedynie, że występuje różnica w sposobie wywołania vla-load za pomocą (quote vla-load) + lista argumentów. Teraz muszę przeanalizować dlaczego działa, bo skopiowałem fragment kodu i wewnątrz mojego nie działa.

  • 2 months later...
Posted

Czy dałoby się dołączyć do Pack'a taką oto funkcjonalność. Coś sobie dłubałem po swojemu i odczułem brak takowej.

; =========================================================================================== ;
; Kolekcja DimStyles / DimStyles collection                                                 ;
; =========================================================================================== ;
(defun cd:ACX_DimStyles ()
  (or
    *cd-DimStyles*
    (setq *cd-DimStyles* (vla-get-DimStyles (cd:ACX_ADoc)))
  )
  *cd-DimStyles*
)
; =========================================================================================== ;
; Tworzy nowy styl wymiarowania / Creates a new dim style                                         ;
;  Name [STR] - nazwa stylu wymiarowania / dim style name                                          ;
; ------------------------------------------------------------------------------------------- ;
; (cd:ACX_AddDimStyle "ABC")                                                                 ;
; =========================================================================================== ;
(defun cd:ACX_AddDimStyle (Name)
	(if (tblobjname "DIMSTYLE" Name)
    (vla-item (cd:ACX_DimStyles) Name)
    (if (snvalid Name 0)
      (vla-add (cd:ACX_DimStyles) Name)
    )
  )
)

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...