Sub entity slection within a selection set?

[voigtmark]

I have a lsip I have been working with off and on for awile. I have the main selection set working and can manipulate those blocks (I have commented the manipulation portion out, I used it for testing) I have placed some basic code below the main to do some testing also. this works by picking the nested entities. What I would like to do is select the arcs and splines within the selection set of blocks and change the lintype of the entities. I hope this is clear enough.

(defun c:fH (/ ssets acadDocument newsset ctr item)
  (vl-load-com)				; load the visual lisp extensions
  
  (setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
					;retrieve a reference to the documents object
  (setq ssets (vla-get-selectionsets acadDocument))

					;retrieve a reference to the selection sets object
  (setq newsset (vla-add ssets "SS1"))	;add a new selection set
  (setq filter_code (vlax-make-safearray vlax-vbinteger '(0 . 4)))
					;create a 5 element array for the DXF Code
  (setq filter_value (vlax-make-safearray vlax-vbvariant '(0 . 4)))
;;;;create a 5 element array for the values
  (vlax-safearray-fill filter_code '(0 -4 8 8 -4))
;;;;DXF Code for Objects and Layer
  (vlax-safearray-fill
    filter_value
    '("insert" "<OR" "A-Hist" "A-HIST-2000" "OR>")
  )
;;;;the filter values
  (vla-select
    newsset acSelectionSetAll nil nil filter_code filter_value)

  
;;;;;;;select ALL Blocks on Layers A-hist or a-hist-2000
;;;  (setq ctr 0)				;set the counter to zero
;;;  (repeat (vla-get-count newsset)	;count the number of objects and loop
;;;    (setq item (vla-item newsset ctr))	;retrieve each object
;;;    (setq check (vlax-property-available-p item "LAYER" T))
;;;					;check if the entity has a layer property and can it be updated 
;;;    (if	check				;if it can
;;;      (vlax-put-property item 'LAYER "A-WALL-SLAB") ;change it's layer
;;;    )					; end if
;;;    (setq ctr (1+ ctr))			;increment the counter
;;;  )					;repeat
;;;  (vla-delete (vla-item ssets "SS1"))	;delete the selection set
;;;  (princ)
;;;)					;defun
;;;(princ)
;;;					;if




(setq old_arc (entget (car (nentsel))));select nested arcs
      (setq new_arc (subst (cons 6 "Phantom") (assoc 6 old_arc) old_arc));substitute new linetype to arc
       (entmod new_arc);force new linetype on arc
      (command "regenall");regenerate drawing to see results



(setq old_spline (entget (car (nentsel))))
      (setq new_spline (subst (cons 6 "Phantom") (assoc 6 old_spline) old_spline))
       (entmod new_spline)
     (command "regenall")

[RobertB]

Do you want to change all arcs and splines for the selected block references? Or are you trying to have the user pick the arc or spline to change?

P.S. Using ActiveX selection sets in Visual LISP is like trying to make mashed potatoes with a sledge hammer. Sure it works, but using a potato masher is far easier. In other words, use the LISP (ssget) function.

[voigtmark]

Yes I am trying to change all of of the arcs and splines without selecting them. I used the VLISP selection set mainly just for tutorial purposes. SSGET is way easier and cleaner too. This was all started by 2010 not including VBA. I know it is available but trying to get away from it. I dont really want to learn VB.Net at the moment.

[RobertB]

Yes I am trying to change all of of the arcs and splines without selecting them. I used the VLISP selection set mainly just for tutorial purposes. SSGET is way easier and cleaner too. This was all started by 2010 not including VBA. I know it is available but trying to get away from it. I dont really want to learn VB.Net at the moment.

After you have the selection set of block references, you need to determine the blocks that you need to modify (after all, multiple block references may refer to the same block object). Once you have a list of blocks to edit, get each block's object and iterate thru their objects. When you find an arc or spline, change its properties.

[voigtmark]

I apologize, but I am a bit lost. Just a prod in the right direction would help. I have a VBA code that works but I am having trouble converting. If I post the VBA code would that help? I just want to learn. I dont expect someone to do it for me.

[RobertB]

Iterate thru your selection set using ssname. If the block name of the current block reference is not in a list of fixed blocks, get the block object, fix the block, and then add that block name to the list of fixed blocks.

Untested:

(vl-load-com)
(setq fixedBlocks '())
(setq allBocks (vla-Get-Blocks (vla-Get-ActiveDocument (vlax-Get-Acad-Object))))
(repeat (setq i (sslength ss))
 (setq i (1- i))
 (setq blockRef (vlax-ename->vla-object (ssname ss i)))
 (cond ((not (member (setq blockName (vla-Get-Name blockRef)) fixedBlocks))
  (setq fixBlock (vla-Item allBlocks blockName))
  (vlax-For aObject fixBlock
   (cond ((wcmatch (vla-Get-ObjectName aObject) "AcDbArc,AcDbSpline")
    (vla-Put-Linetype aObject "Phantom"))))
  (setq fixedBlocks (cons blockName fixedBlocks)))))