Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.

;CAD Studio - connect objects to local origin 0,0,0
(defun C:LINE0 ( / ent ss pt)
 (prompt "\nSelect objects to connect to 0,0,0: ")
 (setq ss (ssget))
 (setvar "CMDECHO" 0)
 (foreach ent (mapcar 'cadr (ssnamex ss))
   (if (and (= (type ent) 'ENAME)(setq pt (cdr (assoc 10 (entget ent)))))
     (vl-cmdf "._LINE" "0,0,0" (trans pt 0 1) "")
    )
 )
 (setvar "CMDECHO" 1)
 (prin1)
)