Lisp Legend

[marko_ribar]

No (vl-position) don't require (vl-load-com)...
Here is list of all (vl-load-com) independent functions and belong to Visual Lisp...

VL-ACAD-DEFUN
VL-ACAD-UNDEFUN
VL-ARX-IMPORT
VL-BB-REF
VL-BB-SET
VL-BT
VL-BT-OFF
VL-BT-ON
VL-CATCH-ALL-APPLY
VL-CATCH-ALL-ERROR-MESSAGE
VL-CATCH-ALL-ERROR-P
VL-CMDF
VL-CONSP
VL-DIRECTORY-FILES
VL-DOC-EXPORT
VL-DOC-IMPORT
VL-DOC-REF
VL-DOC-SET
VL-EVERY
VL-EXIT-WITH-ERROR
VL-EXIT-WITH-VALUE
VL-FILE-COPY
VL-FILE-DELETE
VL-FILE-DIRECTORY-P
VL-FILE-RENAME
VL-FILE-SIZE
VL-FILE-SYSTIME
VL-FILENAME-BASE
VL-FILENAME-DIRECTORY
VL-FILENAME-EXTENSION
VL-FILENAME-MKTEMP
VL-GET-RESOURCE
VL-INFP
VL-INIT
VL-LIST->STRING
VL-LIST-EXPORTED-FUNCTIONS
VL-LIST-LENGTH
VL-LIST-LOADED-VLX
VL-LIST*
VL-LOAD-ALL
VL-LOAD-COM
VL-LOAD-REACTORS
VL-MEMBER-IF
VL-MEMBER-IF-NOT
VL-MKDIR
VL-NANP
VL-POSITION
VL-PRIN1-TO-STRING
VL-PRINC-TO-STRING
VL-PROPAGATE
VL-REGISTRY-DELETE
VL-REGISTRY-DESCENDENTS
VL-REGISTRY-READ
VL-REGISTRY-WRITE
VL-REMOVE
VL-REMOVE-IF
VL-REMOVE-IF-NOT
VL-SOME
VL-SORT
VL-SORT-I
VL-STRING->LIST
VL-STRING-ELT
VL-STRING-LEFT-TRIM
VL-STRING-MISMATCH
VL-STRING-POSITION
VL-STRING-RIGHT-TRIM
VL-STRING-SEARCH
VL-STRING-SUBST
VL-STRING-TRANSLATE
VL-STRING-TRIM
VL-SYMBOL-NAME
VL-SYMBOL-VALUE
VL-SYMBOLP
VL-UNLOAD-VLX
VL-VBALOAD
VL-VBARUN
VL-VLX-LOADED-P
VLARTS-INIT
VLAX-ADD-CMD
VLAX-FOR
VLAX-REMOVE-CMD
VLISP-DCLRES-LIST
VLISP-DCLRES-LOAD-DIALOG
VLISP-EXPORT-SYMBOL
VLISP-FASRES-LIST
VLISP-FASRES-LOAD
VLISP-IMPORT-EXSUBRS
VLISP-IMPORT-SYMBOL
VLISP-INIRES-LIST

H

[_brxdvs]

Thanks to everyone that replied to this thread, I have figured out how to exclude items that are not in the external file. Below is part of the routine. I hope this helps someone else in the future. User dlanor's post gave me the light bulb I needed to fix the routine. Thanks.

(setq lfile (open "z:\\_CAD\\LISP\\LEGENDBLOCKS.TXT" "r"))
(setq 
	n (length styleList)
	cnt 1
	index 0)
(repeat n
	(setq bname (nth index styleList))
	(setq bdesc (cadr (assoc bname bllist)))
	
	(if (not (assoc bname bllist))
		(progn
		(setq cnt (1+ cnt)
		index (1+ index))
		);end progn
	(progn
	(command-s "insert" bname
             (setq cbp (polar bbp (/ (* 270 PI) 180) (* cnt (/ lf 3))))
             lf
             ""
             0.0
	)
   (if (= curh 0.0)
		(command-s "TEXT" "j" "ml"
             (polar cbp 0 (/ lf 1.6))
             (* lf 0.08)
             0.0
             (STRCAT "= " BDESC)
		)
		(command-s "TEXT" "j" "ml"
             (polar cbp 0 (/ lf 1.6))
             0.0
             (STRCAT "= " BDESC)
		)
	);end if
		(setq cnt (1+ cnt)
		index (1+ index))
	); end progn
)
);end repeat