Leaderboard

It's been over 20 years since I've used an SHX font. Assuming you've changed the width factor because RomanS uses too much screen space why not just switch to a TrueType font like Arial Narrow or AutoCAD's Swis721 Lt BT? They're easier to read while taking up less screen space than what you're using now. It should eliminate your PDF issues.

Munga101 9 clicks v's just window objects. On my to look at list. 2021 users is this not now a function of extend ?

You dont need to worry about a new line when making your explist so long as you have a last closing bracket the list will be created. I have like a 15 line make list with 1 option per line for readability, Note the strcat use cons or for me list. (setq excplist (list '( "0MM" "0mm") '( "1MM" "1mm") '( "2MM" "2mm") '( "3MM" "3mm") '( "4MM" "4mm") '( "5MM" "5mm") '( "6MM" "6mm") '( "7MM" "7mm") '( "8MM" "8mm") '( "9MM" "9mm") '( "0MM" "0mm") '( "mm2" "mm\U+00B2") '( "MM2" "mm\U+00B2") (list (strcat "MM" (chr 178)) (strcat "mm" (chr 178))) )) (("0MM" "0mm") ("1MM" "1mm") ("2MM" "2mm") ("3MM" "3mm") ("4MM" "4mm") ("5MM" "5mm") ("6MM" "6mm") ("7MM" "7mm") ("8MM" "8mm") ("9MM" "9mm") ("0MM" "0mm") ("mm2" "mm²") ("MM2" "mm²") ("MM²" "mm²"))

The functions posted so far rely on a number of assumptions: All dynamic block properties returned by the ActiveX getdynamicblockproperties method are either Angle or Distance parameters (in reality, there will also be many origin parameters) There are equal numbers of Angle & Distance parameters, perfectly paired As such, if you wanted to be certain that you were pairing a parameter named "Angle1" with a parameter named "Distance1" and so on, you may need to use somewhat uglier code such as the following: (defun getdynprops ( blk / ang dis nme ) (foreach prp (reverse (vlax-invoke blk 'getdynamicblockproperties)) (setq nme (strcase (vla-get-propertyname prp) t)) (cond ( (wcmatch nme "angle#*") (setq ang (cons (cons nme (vlax-get prp 'value)) ang)) ) ( (wcmatch nme "distance#*") (setq dis (cons (cons nme (vlax-get prp 'value)) dis)) ) ) ) (vl-remove-if-not 'cadr (mapcar '(lambda ( a ) (list a (assoc (strcat "distance" (substr (car a) 6)) dis))) ang) ) )