Daily AutoCAD - Latest Comments

Re: http://www.dailyautocad.com/2009/01/edit-system-variables-easily-with.html

Stephan Bartl — Wed, 24 Aug 2011 05:48:41 -0000

DANGER: The “Save” option is buggy. It does not store the real numbers
with enough precision. When the saved file is read back into Acad with
the “Read” option then most likely some of the sysvar-values will get
corrupted. Especially dangerous is it with any angles that are stored in
Rad in the exported file.

Re: 3D Spiral Stairs Drawing Application

bianca9988 — Mon, 22 Aug 2011 04:57:27 -0000

could you also show the front view???

Re: Protecting your AutoLISP codes

Orhan Toker — Wed, 17 Aug 2011 04:16:45 -0000

Here is your answers,

1) I'm using VLISP console editor in AutoCAD or Notepad++ outside AutoCAD
2) You have to learn visual lisp functions to manage that kind of objects
3) Yes

Re: Protecting your AutoLISP codes

Miguel Valenzuela — Wed, 17 Aug 2011 02:53:54 -0000

Hi Orhan!
Thanks for your posts.
I have been writing AutoLisp by hand (notepad etc.) and now am required to do a bit more complex programming at work.
One of my current projects is to batch substitute a series of blocks on a 2D plane with 3D blocks and move those 3D blocks to the face of a 3D mesh.
In concept, I know how to do this but am not familiar with enough AutoLisp to be able to do this from scratch.
Here's my questions
1. What software do you recommend I use to generate lisp scripts?
2. How robust is AutoLISP? Would I be able to take elevation data from a 3D mesh (topography) if I know the x,y coordinates?
3. Finally, if I want this information to parse in from a text file (such as a list of blocks to substitute), can this be done with LISP?
Thanks for your help.
Miguel

Re: Selecting Similar Objects With SELECTSIMILAR Command

Kotsrinivas — Tue, 16 Aug 2011 12:30:59 -0000

Tell me the procedure to do the aboce command, it will be grateful for me. Thanks in advance.

Re: Using ARC Command

Satish Kr. — Fri, 12 Aug 2011 03:04:58 -0000

Hello Orhan,

I have just joined Autocad, Your way of detailing each and every point is just awsome.Thanks alot for your efforts .God bless to you and family

Satish ,INDIA ,Operations Manager

Re: Working on Layouts 12 - Controlling LINETYPE Scale on Layout

Mehdi_rostamio — Tue, 09 Aug 2011 04:36:27 -0000

I'm prepare Iran power network telecomminicaton plan in one file with several layers and layouts, but for printing I have problem with line type scales in layouts, I need to heve each province view in a layouts one by one, so when I define LTSCALE for one of them, it will happen for all layouts, how I can define different LTSCALE for each layout? please answer me by: mehdi_rostamio@yahoo.com.
@yahoo thanks.
mahdi

Re: 3D Spiral Stairs Drawing Application

Mspanick21 — Mon, 08 Aug 2011 12:38:20 -0000

Very nice explenation.

Re: http://www.dailyautocad.com/2009/02/autolisp-program-that-draws-bubble-at.html

Peeter — Mon, 08 Aug 2011 07:20:50 -0000

;;;Very useful program for counting blocks from: www.lee-mac.com
;;;
;;---------=={ Count.lsp - Advanced Block Counter }==---------;;;;                                                            ;;;; Program will count the number of occurrences of all or    ;;;; selected standard and dynamic blocks in a drawing.        ;;;;                                                            ;;;; The resultant count data is printed to the command line   ;;;; and may be optionally written to either a Text or CSV     ;;;; file, or, should the program is run in an AutoCAD Version ;;;; which supports a Table Object, the data may also be       ;;;; displayed in an AutoCAD Table.                            ;;;;                                                            ;;;; All Table & File Headings and Block Preview may be        ;;;; altered using the Settings dialog.                        ;;;;------------------------------------------------------------;;;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;;;------------------------------------------------------------;;;; Version 1.0    -    05-06-2010                            ;;;;                                                            ;;;; First Release.                                            ;;;;------------------------------------------------------------;;;; Version 1.1    -    06-06-2010                            ;;;;                                                            ;;;; Updated code to include settings dialog.                  ;;;; Added Undo Marks.                                         ;;;;------------------------------------------------------------;;;; Version 1.2    -    06-06-2010                            ;;;;                                                            ;;;; Fixed bug with 64-bit systems.                            ;;;;------------------------------------------------------------;;;; Version 1.3    -    02-03-2011                            ;;;;                                                            ;;;; Program completely rewritten.                             ;;;; Updated code to work without error on 64-bit systems by   ;;;; fixing bug with ObjectID subfunction - my thanks go to    ;;;; Jeff M for helping me solve this problem.                 ;;;; Added ability to write block count to Text/CSV Files.     ;;;;------------------------------------------------------------;;
(defun c:Count
( /
   ;; --=={ Local Functions }==--
   *error*   _addtable   _assoc++   _countsettings   _endundo   _getblockname   _getobjectid   _getsavepath   _is64bit   _msgbox   _open   _padbetween   _readconfig   _startundo   _writeconfig   _writedcl
   ;; --=={ Local Variables }==--
   acdoc   acspc   args   blocks   bt   btitle   cfgfname   column   ct   ctitle   data   dc   dcfname   dctitle   del   doc   file   hasprev   hastitle   hp   ht   i   key   l   ln   lst   maxl   mt   mtitle   mutter   n   opt   pt   ptitle   row   rowitem   savepath   space   ss   sym   symlist   table   tile   title   vallist   value   versionnumber
   ;; --=={ Global Variables }==--
   ; -None-
)
(vl-load-com) (setq VersionNumber "1-3")
;;----------------------------------------------------------;; ;;                     Local Functions                      ;; ;;----------------------------------------------------------;;
(defun *error* ( msg )        (if dc     (unload_dialog dc))    (if acdoc (_EndUndo acdoc))    (if mutter (setvar 'NOMUTT mutter))    (if file   (setq file (close file)))        (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")        (princ (strcat "\n** Error: " msg " **")))    (princ) )
;............................................................;
(defun _StartUndo ( doc ) (_EndUndo doc)    (vla-StartUndoMark doc) )
;............................................................;
(defun _EndUndo ( doc )    (if (= 8 (logand 8 (getvar 'UNDOCTL)))      (vla-EndUndoMark doc)    ) )
;............................................................;
(defun _GetSavePath ( / tmp )    (cond            ( (setq tmp (getvar 'ROAMABLEROOTPREFIX))
        (or (eq "\\" (substr tmp (strlen tmp)))            (setq tmp (strcat tmp "\\"))        )        (strcat tmp "Support")      )      ( (setq tmp (findfile "ACAD.pat"))
        (setq tmp (vl-filename-directory tmp))
        (and (eq "\\" (substr tmp (strlen tmp)))             (setq tmp (substr tmp (1- (strlen tmp))))        )        tmp      )    ) )
;............................................................;
(defun _WriteConfig ( fname lst / ofile )
    (if (setq ofile (open fname "w"))      (progn                (foreach x lst (write-line (vl-prin1-to-string x) ofile))                (setq ofile (close ofile))        t      )    ) )
;............................................................; (defun _ReadConfig ( fname lst / ofile )
    (if (and (setq fname (findfile fname))             (setq ofile (open fname "r")))      (progn                  (foreach x lst (set x (read (read-line ofile))))                (setq ofile (close ofile))        lst      )    ) )
;............................................................;
(defun _Assoc++ ( key lst )    (      (lambda ( pair )        (if pair          (subst (list key (1+ (cadr pair))) pair lst)          (cons (list key 1) lst)        )      )      (assoc key lst)    ) )
;............................................................;
(defun _PadBetween ( s1 s2 ch ln )    (      (lambda ( l1 l2 ch )        (while (< (+ (length l1) (length l2)) ln) (setq l2 (cons ch l2)))        (vl-list->string (append l1 l2))      )      (vl-string->list s1)      (vl-string->list s2) (ascii ch)    ) )
;............................................................; (defun _GetBlockName ( obj )    (vlax-get-property obj      (if (vlax-property-available-p obj 'EffectiveName) 'EffectiveName 'Name)    ) )
;............................................................;
(defun _Is64Bit nil (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE")))
;............................................................;
(defun _GetObjectID ( doc obj )    (if (_Is64Bit)      (vla-get-Objectid32 obj)      (vla-get-Objectid   obj)    ) )
;............................................................;
(defun _MsgBox ( title flags msg / WSHShell result )          (setq WSHShell (vlax-create-object "WScript.Shell"))    (setq result   (vlax-invoke WSHShell 'Popup msg 0 title flags))    (vlax-release-object WSHShell)    result )
;............................................................;
(defun _WriteDCL ( fname / ofile )
    (if (not (findfile fname))            (if (setq ofile (open fname "w"))        (progn          (foreach str
            '("//------------=={ Count.dcl Dialog Definition }==-----------//"              "//                                                          //"              "// Author: Lee Mac, Copyright © 2011 - www.lee-mac.com     //"              "//----------------------------------------------------------//"              ""              "ed12 : edit_box { edit_width = 12; fixed_width = true; alignment = centered; }"              "tog : toggle   { alignment = centered; }"              ""              "//----------------------------------------------------------//"              "//                  Main Dialog Definition                  //"              "//----------------------------------------------------------//"              ""              "count : dialog { key = \"dctitle\"; spacer;"              ""              " : image { key = \"sep1\"; width = 33.26; height = 0.74; color = -15; }"              ""              " : row {"              "    : column { spacer; : ed12 { key = \"ptitle\"; } }"              "    spacer;"              "    : column {"              "      : ed12 { key = \"mtitle\"; }"              "      : ed12 { key = \"btitle\"; }"              "    }"              "    spacer;"              "    : column { spacer; : ed12 { key = \"ctitle\"; } }"              " }"              " spacer;"              " : image { key = \"sep2\"; width = 33.26; height = 0.74; color = -15; }"              ""              " : row {"              "    spacer;"              "    : tog { label = \"Block Preview\"; key = \"hasprev\" ; }"              "    : tog { label = \"Table Title\";   key = \"hastitle\"; }"              "    spacer;"              " }"              " : image { key = \"sep3\"; width = 33.26; height = 0.74; color = -15; }"              " spacer;"              ""              " ok_cancel;"              "}"              "//----------------------------------------------------------//"              "//                       End of File                        //"              "//----------------------------------------------------------//"             )             (write-line str ofile)          )          (setq ofile (close ofile))          t        )      )      t    ) )
;............................................................;
(defun _CountSettings ( fname dctitle args / dc mt pt bt ct hp ht )       (cond      ( (not (_WriteDCL fname))
        (_MsgBox "Warning" 16 "DCL File Could not be Written")        (princ "\n** Dialog File Could not be Written")      )      ( (<= (setq dc (load_dialog fname)) 0)
        (_MsgBox "Warning" 16 "Dialog File not Found")        (princ "\n** Dialog File not Found **")      )      ( (not (new_dialog "count" dc))
        (_MsgBox "Warning" 16 "Dialog Could not be Loaded")        (princ "\n** Dialog Could not be Loaded **")        (setq dc (unload_dialog dc))      )      (t        (set_tile "dctitle" dctitle)
        (foreach x '("sep1" "sep2" "sep3")          (start_image x) (mapcar 'vector_image '(0 0) '(6 5) '(300 300) '(6 5) '(8 7)) (end_image)        )        (mapcar 'set '(mt pt bt ct hp ht) (mapcar 'eval args))
        (foreach x args          (set_tile (strcase (vl-princ-to-string x) t) (eval x))        )        (mode_tile "mtitle" (- 1 (atoi ht)))        (mode_tile "ptitle" (- 1 (atoi hp)))               (mapcar         '(lambda ( tile sym )            (action_tile tile (strcat "(setq " sym " $value)"))          )         '("mtitle" "ptitle" "btitle" "ctitle") '("mt" "pt" "bt" "ct")        )        (action_tile "hasprev" "(mode_tile \"ptitle\" (- 1 (atoi (setq hp $value))))")        (action_tile "hastitle" "(mode_tile \"mtitle\" (- 1 (atoi (setq ht $value))))")               (action_tile "accept"   "(mapcar 'set args (list mt pt bt ct hp ht)) (done_dialog)")        (start_dialog)        (setq dc (unload_dialog dc))      )    )    (mapcar 'eval args) )
;............................................................;     (defun _AddTable ( doc space pt data hastitle title hasprev ptitle / _itemp )
    (defun _itemp ( collection item )      (if        (not          (vl-catch-all-error-p            (setq item              (vl-catch-all-apply 'vla-item (list collection item))            )          )        )        item      )    )
    (      (lambda ( table blocks ) (vla-put-RegenerateTableSuppressed table :vlax-true) (vla-put-StyleName table (getvar 'CTABLESTYLE))        (if hasprev          (progn (vla-SetText table 1 0 ptitle)            (              (lambda ( row )                (mapcar                  (function                    (lambda ( block ) (setq row (1+ row)) (vla-SetCellType table row 0 acBlockCell)                      (vlax-invoke table                        (if (_Is64Bit)                          'SetBlockTableRecordId32                           'SetBlockTableRecordID                        )                        row 0 (_GetObjectID doc (_itemp blocks block)) :vlax-true                      )                    )                  )                  (mapcar 'car (cdr data))                )              )              1            )          )        )        (          (lambda ( row )            (mapcar              (function                (lambda ( rowitem ) (setq row (1+ row))                  (                    (lambda ( column )                      (mapcar                        (function                          (lambda ( item )                            (vla-SetText table row                              (setq column (1+ column)) item                            )                          )                        )                        rowitem                      )                    )                    (if hasprev 0 -1)                  )                )              )              data            )          )          0        )        (if hastitle          (vla-SetText table 0 0 title)          (vla-deleterows table 0 1)            )        (vla-put-RegenerateTableSuppressed table :vlax-false)        table      )      (        (lambda ( textheight )          (vla-AddTable space (vlax-3D-point pt) (1+ (length data)) (+ (if hasprev 1 0) (length (car data))) (* 1.8 textheight)            (* textheight              (apply 'max                (cons (/ (strlen title) (length (car data)))                  (mapcar 'strlen (apply 'append data))                )              )            )          )        )        (vla-getTextHeight          (_itemp            (_itemp              (vla-get-Dictionaries doc) "ACAD_TABLESTYLE"            )            (getvar 'CTABLESTYLE)          )          acDataRow        )      )      (vla-get-blocks doc)    ) )
;............................................................;
(defun _Open ( target / Shell result )        (setq Shell (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
    (setq result      (and (or (eq 'INT (type target)) (setq target (findfile target)))        (not          (vl-catch-all-error-p            (vl-catch-all-apply 'vlax-invoke (list Shell 'Open target))          )        )      )    )        (vlax-release-object Shell)    result )
;;----------------------------------------------------------;; ;;                       Main Routine                       ;; ;;----------------------------------------------------------;;
(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))        acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'PaperSpace 'ModelSpace)) )
(if (not (vl-file-directory-p (setq SavePath (_GetSavePath))))    (progn      (princ "\n** Save Path not Valid **") (exit)    ) )
(setq dcfname    (strcat SavePath "\\LMAC_Count_V" VersionNumber ".dcl")        cfgfname   (strcat SavePath "\\LMAC_Count_V" VersionNumber ".cfg")        dctitle    (strcat "Count V" (vl-string-translate "-" "." VersionNumber) " - Settings") )
(setq SymList '(mtitle ptitle btitle ctitle hasprev hastitle)        ValList (list "Block Data" "Preview" "Block Name" "Count" "1" "1") ) (or (findfile cfgfname)      (_WriteConfig cfgfname ValList) ) (_ReadConfig cfgfname SymList)
(mapcar '(lambda ( sym value ) (or (boundp sym) (set sym value))) SymList ValList)
;............................................................;
(setq mutter (getvar 'NOMUTT)) (setvar 'NOMUTT 1) (princ "\nSelect Blocks to Count <all> : ")
(cond    (      (not        (progn          (setq ss            (cond              ( (ssget      '((0 . "INSERT"))) )              ( (ssget "_X" '((0 . "INSERT"))) )            )          )          (setq mutter (not (setvar 'NOMUTT mutter)))          ss        )      )
      (princ "\n--> No Blocks Found.")    )    (      (progn        (vlax-for obj (setq ss (vla-get-ActiveSelectionSet acdoc))          (if            (zerop              (logand 45                (cdr                  (assoc 70                    (tblsearch "BLOCK"                      (setq n (_GetBlockName obj))                    )                  )                )              )            )            (setq l (_Assoc++ n l))          )        )        (vla-delete ss)        (setq i 0 l          (vl-sort            (mapcar              (function                (lambda ( x )                  (if (< i (cadr x)) (setq i (cadr x))) (list (car x) (itoa (cadr x)))                )              )              l            )            (function (lambda ( a b ) (< (car a) (car b))))          )        )      )      (setq maxL (- 57 (strlen (itoa i))))
      (princ (strcat "\n" (_PadBetween "Block Name" "Count" "." 60)))      (princ (strcat "\n" (_PadBetween "" "" "-" 60)))
      (foreach x l        (princ (strcat "\n" (_PadBetween (substr (car x) 1 maxL) (cadr x) "." 60)))      )           (princ (strcat "\n" (_PadBetween "" "" "-" 60)))      (terpri)           (if (vlax-method-applicable-p acspc 'AddTable)        (progn          (while            (progn (initget "Table File Settings Exit")              (setq opt (getkword "\nOutput [Table/File/Settings] <exit>: "))
              (cond                (                  (or (null opt) (eq "Exit" opt)) nil                )                (                  (and (eq "Table" opt) (setq pt (getpoint "\nSpecify Point for Table: ")))
                  (_StartUndo acdoc)                                   (_AddTable acdoc acspc (trans pt 1 0) (cons (list btitle ctitle) l) (eq "1" hastitle) mtitle (eq "1" hasprev) ptitle)                  (_EndUndo   acdoc)                                   nil                )                (                  (eq "Settings" opt)
                  (mapcar 'set SymList (_CountSettings dcfname dctitle SymList))                )                (                  (and (eq "File" opt)                    (setq *file*                      (getfiled "Create Output File"                        (vl-filename-directory (cond ( *file* ) ( (getvar 'DWGPREFIX) ))) "csv;txt" 1                      )                    )                  )
                  (if (setq file (open *file* "w"))                    (cond                      (                        (eq ".CSV" (strcase (vl-filename-extension *file*)))
                        (if (eq "1" hastitle) (write-line mtitle file))
                        (foreach line (cons (list btitle ctitle) l)                          (write-line (strcat (car line) "," (cadr line)) file)                        )                        (setq file (close file)) (_Open *file*)                      )                      (t                        (if (eq "1" hastitle) (write-line mtitle file))
                        (setq maxL                          (+ 7                            (apply 'max                              (mapcar                                (function                                  (lambda ( item ) (strlen (apply 'strcat item)))                                )                                (cons (list btitle ctitle) l)                              )                            )                          )                        )
                        (foreach line (cons (list btitle ctitle) l)                          (write-line (_PadBetween (car line) (cadr line) " " maxL) file)                        )                        (setq file (close file)) (_Open *file*)                      )                    )                    (princ "\n** Error Creating Output File **")                  )                  nil                )              )            )          )        )        (textscr)      )    )    ( (princ "\n--> No Blocks Found.") ) ) (_WriteConfig cfgfname (mapcar 'eval SymList)) (princ))
;............................................................;
(princ)(princ "\n:: Count.lsp | Version 1.3 | © Lee Mac 2011 www.lee-mac.com ::")(princ "\n:: Type \"Count\" to Invoke ::")(princ)
;;------------------------------------------------------------;;;;                         End of File                        ;;;;------------------------------------------------------------;;

Re: Fixing the AutoCAD 2011 Ribbon Menu Error

jhony — Sun, 07 Aug 2011 05:48:04 -0000

pls help me my friend installed auto cadd 2011 in my imac computer but when i want to edit solid objects model with render the autodesk library is locked, i couldnt resize my model exsample bricks it appears too big. pls help........

student) reyes_jhun@yahoo.com

Re: How to Create Backwards Text In AutoCAD

Mulitubaibrahim — Fri, 05 Aug 2011 21:49:41 -0000

low hi!! can u help for others command of cad? contact mail mulitubaibrahim2yahoo.com
best regards: cyber

Re: http://www.dailyautocad.com/2008/01/hip-tip-increasing-view-resolution-with_04.html

Eamonwhyte23 — Thu, 04 Aug 2011 11:07:45 -0000

Hello
I want to join 2 lines at a corner using fillet.I set radius to 0,0 and pick the 2 lines,but it will not join.Before if 2 lines crossed i used fillet to trim these lines

Re: Understanding Scale Concept and Units in AutoCAD

Orhan Toker — Thu, 04 Aug 2011 03:16:57 -0000

You're doing right. If 500 dwg unit is not suitable for you, you can chane your unit acceptance from mm to cm. 50 units will be o.k.

Re: Understanding Scale Concept and Units in AutoCAD

Amanda — Thu, 04 Aug 2011 03:08:04 -0000

Hi there, if I were to start a new drawing (units mm) in model space, I understand that 1 dwg unit represents 1 mm. Say if I would like to draw a vertical line of 500mm, that would give me a really long line. What I want is a short line by which when I measure using linear dimension, it would still measure out 500 mm. I understand that scaling is only relevant in paper space and in model space I should draw 1:1. I have played with the grid and snap modes and dimension style and I still can't get it right. I am new to Autocad. Would really appreciate if you could point me in the right direction. Thank you.

Re: http://www.dailyautocad.com/2007/10/small-tips-for-drawing-rectangle_10.html

Ajithchangahthy — Wed, 03 Aug 2011 05:21:51 -0000

in my system I dont get the same model, Why?

Re: http://www.dailyautocad.com/2008/06/hip-tip-how-to-bring-back-lost-command_03.html

Vposurveying — Tue, 02 Aug 2011 20:45:58 -0000

encounter same problem... is there an answer for his?

Re: 10 Amazing Tree Blocks in Elevation View

Rimau Taring — Tue, 02 Aug 2011 05:08:35 -0000

thanks 4 sharing...

Re: http://www.dailyautocad.com/2007/11/reference-feature-in-scale-and-rotate.html

Arno — Tue, 02 Aug 2011 03:37:54 -0000

IF I HAVE TWO BLOCKS WITH DIFFERENT SCALES, HOW DO I MAKE THE ONE MATCH THE SCALE OF THE OTHER?

Re: Which Tablet or Operating System?

Rich Toy — Mon, 01 Aug 2011 09:38:00 -0000

Also, The flyer is a 7" tablet, rumors of a 10" Flyer coming the 2nd half 2011. Running Android 2.2.1 with an update to 3.1 promised. The pressure sensitivity and selection of pen/ink types is nice. Great for artists, even made my doodles look great! Haha!

Re: Which Tablet or Operating System?

Rich Toy — Mon, 01 Aug 2011 09:28:37 -0000

HTC Flyer has a nice smart stylus option. Best Buy has something about a free stylus in their ad this week.

Re: Creating Solid Surfaces With PLANESURF Command

Juan Gonzalez — Sun, 31 Jul 2011 15:07:48 -0000

Thank you.

Re: Using LINE Command

Zahid Amjad — Sat, 30 Jul 2011 09:04:30 -0000

orhan, good job, I have learn autocad1, but could not use it, and 13and 14 no application. I do not giveup.autocad 2011 lesson on line are good, dest regards.mohammad

Re: Discovering Tool Palettes

Rex85cc1 — Fri, 29 Jul 2011 12:17:54 -0000

How do you get a catalog of different components in the tool palette on ACAD10. I have used 07 in the past and there was a whole library of different components for structural. For example, Bar Joist sizes, Steel columns, base plates and cap plates, fasteners etc.

Re: Which Tablet or Operating System?

Orhan Toker — Thu, 28 Jul 2011 02:03:24 -0000

There is a stylus pen for iPAD. Other choice is using Windows 7 Tablet PC. A lot of stylus pen are available on the market.
I don't know if there is a stylus for Android tablets or not...

Re: Which Tablet or Operating System?

Cadman — Wed, 27 Jul 2011 16:53:59 -0000

Do you know of any tablets that can be used as sketch tablets with pressure sensative pens? I'm looking for one to use as a portable sketch pad and other graphic applications.