Faz tempo que não posto uma lisp, então pra desenferrujar um pouco, que tal fazer um update em vários corridors ao mesmo tempo?
(DEFUN C:UPDCORRIDOR (/ SS ENT VLA)
(vl-load-com)
(setq ss (ssget '((0 . "AECC_CORRIDOR"))))
(REPEAT (SSLENGTH SS)
(SETQ ENT (SSNAME SS 0)
VLA (VLAX-ENAME->VLA-OBJECT ENT))
(VLAX-INVOKE-METHOD VLA 'Rebuild)
(SSDEL ENT SS)))
Se você, como eu, cria todas as interseções separadas do corridor principal, para nao demorar os rebuilds quano se está projetando, esta lispezinha vai ser muito útil no final, porque ficar dando rebuild um a um é massante!!!
Experimente, ela é bem simples, só copie, salve e carregue que já dá para sair usando!!!
(DEFUN C:UPDCORRIDOR (/ SS ENT VLA)
(vl-load-com)
(setq ss (ssget '((0 . "AECC_CORRIDOR"))))
(REPEAT (SSLENGTH SS)
(SETQ ENT (SSNAME SS 0)
VLA (VLAX-ENAME->VLA-OBJECT ENT))
(VLAX-INVOKE-METHOD VLA 'Rebuild)
(SSDEL ENT SS)))
Se você, como eu, cria todas as interseções separadas do corridor principal, para nao demorar os rebuilds quano se está projetando, esta lispezinha vai ser muito útil no final, porque ficar dando rebuild um a um é massante!!!
Experimente, ela é bem simples, só copie, salve e carregue que já dá para sair usando!!!
Nenhum comentário:
Postar um comentário