Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 05/25/2021 in all areas

  1. Click on your username up there on the right side. then click on Account settings. Then notification settings. It's in there somewhere. Uncheck whatever this box is in Italian. Then you should be able to add objects just by clicking on them whether or not a command is active.
    1 point
  2. Like tombu said you need to change the precision of rtos to 4 (list (rtos (/ (* (Caddr itm) 180.0) pi) 2 4)) Also In Excel In the Format Cells dialog, under Number tab their is a place to select how many decimals you want to show.
    1 point
  3. Lee Mac's Consistent rtos function is what you're looking for: http://www.lee-mac.com/consistentrtos.html It doesn't require modifying any dimension system variables either. Command: (LM:rtos 500.05 2 4) "500.0500" Command: (LM:rtos 513.3322 2 4) "513.3322"
    1 point
  4. What value did you use for the DIMZIN system variable? Try setting it to 0.
    1 point
  5. For me start again and use a block with attributes. That is what most of the civil software does now. The Point symbol can be part of the block.
    1 point
  6. Try this (setq ss (ssget "_X" '((0 . "LWPOLYLINE") (67 . 1) (8 . "0") (62 . 6) (6 . "CENTER2")))) (repeat (setq x (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1))))) (vlax-put obj 'Linetype "Phantom") (vlax-put obj 'LinetypeScale 0.25) )
    1 point
  7. Did you google add attribute existing block lisp that would be 1st step, it exists I dont have. Then 2nd step is to find block look for text again pretty simple lots of examples So as a newbie ie post 1 you will get lots more help if you do a bit of the leg work yourself, thinking about it now it has been done before so google. That is what I would do.
    1 point
  8. Isometric Drawing in AutoCAD https://www.cad-notes.com/isometric-drawing-in-autocad/
    1 point
  9. See if this sheds any light. You cannot use ' to quote a variable, LIST and CONS need to be used. (setq blkname "Test") (print '((0 . "INSERT") (2 . blkname))) ;;;((0 . "INSERT") (2 . BLKNAME)) (print (list '(0 . "INSERT") (cons 2 blkname))) ;;;((0 . "INSERT") (2 . "Test"))
    1 point
  10. (ssget "_X" (list (cons 0 "INSERT") (cons 2 BlkName )))
    1 point
×
×
  • Create New...