Sem categoria

Update multiplos corridors de uma vez só

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

Update multiplos corridors de uma vez só Read More »

Carrinho de compras
Rolar para cima