Fórum - Autolisp

Marcos, desta forma é possível mudar. Mas o desenho tem que estar aberto. [lsp](vla-get-ImageFile (vlax-ename->vla-object (car (entsel))))[/lsp] para obter o path, ou [lsp](vla-put-ImageFile (vlax-ename->vla-object (car (entsel))) "C:\\Users\\Ederson\\Desktop\\lisp.jpg")[/lsp] para setar o...

Pois é senhores... Agora eu preciso fornecer o nome do "group" e obter as "entity name" dos objetos que pertencem a este group. Parece que já vi algo aqui antes feito pelo Neyton. Mas não estou encontrando. Obter quantos objetos pertencem ao group foi fácil [lsp](vlax-for group (...

Troque o [lsp]"_.save"[/lsp] por [lsp]"PLINE"[/lsp]

[lsp](setq lst_alturasdospeitoris (list 130 90))[/lsp] [lsp](vlax-ldata-put "alturadospeitoris" "valores" lst_alturasdospeitoris)[/lsp] e por último: [lsp](if (vlax-ldata-get "alturadospeitoris" "valores") (alert "existe uma lista de alturas") (alert...

Dr Lau, aí experimente este:

[lsp](vlax-for group (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))
(setq lst_group (append lst_group (list (vla-get-name group))))
)[/lsp]

Tem aqui no fórum alguns modelos de acesso a banco de dados access. Me parece que desenvolvido pelo Marcos e outra pelo Neyton. O Acesso não é tão direto como seria para o excel. Há a necessidade de uma string de conexão. Dê uma procurada...

Até!

Eh... Marcelo, e o seu ficou mais "clean"... Muito bacana!

Eh... Dr Lau, sofri na época... mas tá aí. [lsp](defun obtername_grupo (group_object / ent_name acad_reactors vlx_objetc) ;(setq group_object (car (entsel))) (setq ent_name (entget group_object)) (if (setq acad_reactors (member '(102 . "{ACAD_REACTORS") ent_name)) (while (and (setq acad_re...

Se entendi o que o Neyton propoem, talves isso aqui lhe ajude. [lsp](ssget ":s" (list (cons 0 "3dSolid") (cons 100 "AcDb3dSolid") (cons 8 "VIGAS - *")))[/lsp] ou [lsp](ssget ":e" (list (cons 0 "3dSolid") (cons 100 "AcDb3dSolid") (...

[lsp](apply '+ (vl-remove (apply 'min '(5 15 15)) '(5 15 15)))[/lsp]