Search the Community
Showing results for tags 'insunits'.
Found 2 results
gerardo2m posted a topic in AutoLISP, Visual LISP & DCLHi. I am generating a block using ENTMAKE, but I have noticed that the property "InsUnits (RO)" indicates "Unitless". The variable "INSUNITS of the document (drawing) is set to "6" for Meters, but when generating the Block the property is set as Unitless. How do I assign the property to the BLOCK as this is the INSUNITS variable? (defun ent-block (nameBlock pto-ins atrib-var / ) (entmake (list '(0 . "BLOCK") '(100 . "AcDbEntity") '(100 . "AcDbBlockBegin") '(8 . "0") (cons 2 nameBlock) (cons 10 pto-ins) (cons 70 (if atrib-var 2 0)) ) ) ) (defun makeBlockGMM (listaEntNames nameBlock pto-ins atrib-var / msg ciclo) (defun ciclo ( listaEntNames / X) (foreach X listaEntNames (entmake (entget X)) ) ) (if (vl-catch-all-error-p (setq resultado01 (vl-catch-all-apply 'ent-block (list nameBlock pto-ins atrib-var)))) (progn (prompt (setq msg (strcat "**ERROR en Cabecera, mensage de error: " (vl-catch-all-error-message resultado01)))) ) ) (if (and (not msg ) (vl-catch-all-error-p (setq resultado02 (vl-catch-all-apply 'ciclo (list listaEntNames))))) (progn (prompt (setq msg (strcat "**ERROR en creacion de entidades, mensage de error: " (vl-catch-all-error-message resultado02)))) ) ) (if (and (equal resultado1 nil) (equal resultado2 nil)) (progn (ent-endblock) ) ) ) (defun ent-endblock ( / ) (entmake (list '(0 . "ENDBLK") '(100 . "AcDbEntity") '(100 . "AcDbBlockEnd") '(8 . "0") ) ) ) Regards.
Dinochrome posted a topic in Autodesk InventorDoes six months a Zombie thread make? I found a different thread in a different sub-forum in which someone had asked a very similar, but somewhat different question. I thought I'd start my own thread rather than pollute his. I am learning Inventor. I have been tasked with a sample job to draw. I have been going through an organized Tutorial Program my employer has footed the bill for. I have also watched a lot of Neil Cross "TFI CAD" videos. He makes it easy to understand. My task is to create production drawings of an assembly draw in 2D AutoCAD like a manufacturer might show to an Architect for approval. The output is to be 3D modeled in Inventor for production. As I've been bringing my parts across, they are coming scaled down like they are drawn in millimeters. In AutoCAD when I check a dimension it shows inches and there aren't any strange setting in the DIMSTYLES that I can find. They are set to inches. The donor AutoCAD file had INSUNITS set to 4. I switched it to 0. That didn't seem to change the behavior. This is the Zombie thread: Insert Units Thread I have not tried this: Editing Acaddoc.lsp Any enlightenment would be appreciated. --------------------------------------------------------------------------------------- As an aside, re: Neil Cross's work; here is an example of a well done tutorial on the steering wheel. I've used it like a wood saw on a steel pipe for years... I posted a remark on it here a couple days ago. It's after hours and I'm doing a little self-improvement time and wanted to share this.