All Activity

Hi everyone, I have been looking around to see if anyone has made anything to help in the creation of a "Table of Contents". In my line of work, we need to match exactly the Drawing title to the Table of Contents reference and page number. For Example, the image below shows the ends result that I need. The image below shows what is under the drawings we produce. The title of this drawing is below in red. The above image is incorrectly labeled and should say "A4 MAIN FLOOR PLAN ELEVATION 'A' " (The 10' Ceiling part is not required generally). If there is multiple titles on a page then all of those need to be added to the ToC and might look something like this. A11 PARTIAL BASEMENT PLAN 'B' PARTIAL GROUND FLOOR PLAN 'B' PARTIAL SECOND FLOOR PLAN 'B' We currently use a formatted MTEXT to hold all this information where the A## is the page number on a new line and the contents is 2 tabs over. We use also use 2 columns for the list. So What I was thinking is having an auto numbering Page number in a lisp and then selecting the drawing titles to add next to the page number. In theory this will work but I have 2 major issues that I cant seem to get around right now. First, if the drawings titles that I select is an mtext with formatting, I cant find a way around removing the formatting. I am using ACAD 2024 LT and Lee Mac's "LM:Unformat string" doesnt work, neither does StripMtext. Does anyone have an idea to get around this? Secondly, I do not know how to build an mtext to include new formatting. Like how do you make sure you start a new line or add tabs before the next piece of text is added to the mtext? I am even up for other suggestions on how to create a Table of Contents.... except I cant use Sheet Sets. Our office doesn't want move in that direction just yet. Thanks.

.... 800+ lines of code to look at, understand and then to work out a fix....

Did you increase the Fuzz factor value? The MTEXT objects may be further away from the leader ends than the default 0.1, which if you are working in mm is a pretty small value.

Geometry and dimensions need to be placed precisely within your drawings to ensure accuracy when your digital design is taken into the real world to be manufactured or built. There are several precision features available when creating and modifying objects, including: Coordinate entry: Specify a location by its Cartesian or polar coordinates, either absolute or relative. Polar tracking: Snap to the closest preset angle and specify a distance along that angle. Locking angles: Lock to a single specified angle and specify a distance along that angle. Direct distance entry: Locate the next point at a specified distance in the direction of your cursor. Object snaps: Snap to precise locations on existing objects, such as an endpoint of a polyline, the midpoint of a line, or the center point of a circle. Grid snaps: Snap to increments on a rectangular grid. For our AutoCAD Foundations blog series today, we’re taking an overview look at one of the most popular precision features: object snaps. For the full tutorial on using object snaps and even more of these features listed above, you can check out the AutoCAD Foundations article. In the meantime, let’s take a look at what object snaps are and can do for you. Get Started With Object Snaps Objects that make up your designs rarely fall on precise coordinates. By far, the most important way to specify precise locations on objects is to use object snaps. In the following illustration, several different kinds of object snaps are represented by markers. Object snaps become available during a command whenever you are prompted to specify a point. For example, as you draw a new line and move the cursor near the endpoint of an existing line, the cursor will automatically snap to it and is identified with an AutoSnap marker and tooltip. AutoSnap Marks of Common Object Snaps The following table illustrates commonly used object snaps. Learn More Precision Features Be sure to check out the entire AutoCAD Foundations article for even more in-depth tutorials on object snaps and a variety of precision features. And stay tuned for our entire series here on the blog (or catch up on past articles!) as we highlight even more great tips for getting started with AutoCAD. The post Object Snaps Basics: AutoCAD Foundations appeared first on AutoCAD Blog. View the full article

Ill look into them, although I would appreciate if someone would at least fix this bug i mentioned.

The lisp doesn't work for me 2393 Leaders Selected : 0 MTEXT objects associated.

Thanks for the help DATVO and Saxlle.

@mhy3sx I made the same command (I hope the ZWCAD have the same functions as AutoCAD), but with the less line code and a different approach. It works the same as @DATVO modified your code, the result is the same. ; ******************************************************** ; Functions : stair2D ; Description : Drawing 2D stairs between two LINE ; Author : SAXLLE ; Date : August 07, 2025 ; ******************************************************** (prompt "\nTo run a LISP type: stair2D") (princ) (defun c:stair2D ( / old_osmode old_aunits old_layer flag ent pt1 pt2 pt3 dist num_steps equal_offset half_dist ang new_ang circle_radius off npt midptdel midptbase val midpt1 midpt2 midpt3 answ) (setq old_osmode (getvar 'osmode) old_aunits (getvar 'aunits) old_layer (getvar 'clayer) ) (setvar 'aunits 0) (setq flag T) (while (not (equal flag nil)) (setvar 'osmode 1) (setq ent (car (entsel "\nSelecte the BASE line:\n"))) (while (or (equal ent nil) (not (equal (cdr (assoc 0 (entget ent))) "LINE"))) (prompt "Try again...") (princ) (setq ent (car (entsel "\nSelecte the BASE line:\n"))) ) (setq pt1 (getpoint "\nPick the first point of the BASE line:\n") pt2 (getpoint pt1 "\nPick the second point of the BASE line:\n") pt3 (getpoint pt1 "\nGet the distance between BASE line and PARALLEL line:\n") dist (distance pt1 pt3) num_steps (getint "\nEnter the number of STEPS:") equal_offset (/ (getpropertyvalue ent "Length") num_steps) half_dist (/ dist 2) ang (angle pt1 pt2) new_ang (angle pt1 pt3) circle_radius 0.06 off 0.0 npt (list) ) (setvar 'osmode 0) (if (not (tblsearch "LAYER" "STAIR")) (command "_-layer" "_m" "STAIR" "_c" "90" "" "") (setvar 'clayer "STAIR") ) (command-s "_UNDO" "begin") (setq midptdel (mapcar '* (mapcar '+ pt1 pt3) '(0.5 0.5))) (command-s "_ERASE" midptdel "") (command-s "_LINE" pt1 (strcat "@" (rtos dist 2 2) "<" (angtos new_ang)) "") (setq midptbase (mapcar '* (mapcar '+ (getpropertyvalue (entlast) "StartPoint") (getpropertyvalue (entlast) "EndPoint")) '(0.5 0.5))) (command-s "_CIRCLE" midptbase circle_radius "") (repeat num_steps (setq val (vlax-curve-getPointAtDist (vlax-ename->vla-object ent) off) npt (append npt (list val)) off (+ off equal_offset) ) ) (setq npt (reverse npt)) (foreach pt npt (command-s "_LINE" pt (strcat "@" (rtos dist 2 2) "<" (angtos new_ang)) "") ) (setq midpt (mapcar '* (mapcar '+ (getpropertyvalue (entlast) "StartPoint") (getpropertyvalue (entlast) "EndPoint")) '(0.5 0.5)) midpt1 (mapcar '* (mapcar '+ (getpropertyvalue (entlast) "StartPoint") midpt) '(0.5 0.5)) midpt2 (mapcar '* (mapcar '+ (getpropertyvalue (entlast) "EndPoint") midpt) '(0.5 0.5)) midpt3 (polar midpt ang (/ half_dist 2)) ) (command-s "_LINE" midptbase (strcat "@" (rtos (getpropertyvalue ent "Length") 2 2) "<" (angtos ang)) "") (command-s "_LINE" midpt1 midpt3 midpt2 "") (command-s "_UNDO" "end") (initget 1 "Yes No Undo") (setq answ (getkword "\Do you want to continue? [Yes/No/Undo]")) (cond ((equal answ "No") (setq flag nil) ) ((equal answ "Undo") (command-s "_UNDO" "") ) ) (setvar 'osmode 1) ) (command-s "_regen") (setvar 'osmode old_osmode) (setvar 'aunits old_aunits) (setvar 'clayer old_layer) (prompt "\nThe 2D stairs are drawn!") (princ) ) This is the example video. STAIR2D.mp4 Best regards.

Here is the code @mhy3sx, based on your original file. I've modified a few lines using a different approach, but the result remains the same. If you find this helpful, feel free to visit my page where I share tools designed to improve efficiency and save time, as effortlessly as enjoying a cup of coffee: https://lispautocad.gumroad.com/ ;; Modified by DV. Visit my page at: https://lispautocad.gumroad.com/ (defun c:Stair2D (/ p1 p2 ent start_pt end_pt mid_pt line_length circle_diameter num_steps i move_vec array_vec step_vec last_start_pt last_end_pt last_mid_pt mid1mid2_vec mid1mid2_length unit_vec perp_vec arrow_p1 arrow_p2 arrow_p3) (vl-load-com) (setvar "CMDECHO" 0) (command "._UNDO" "_BEGIN") (if (not (tblsearch "LAYER" "STAIR")) (command "_layer" "_m" "STAIR" "_c" "90" "" "") ) (setvar "CLAYER" "STAIR") (princ "\nSelect the first LINE of the staircase: ") (while (not (setq ent (ssget ":S" '((0 . "LINE"))))) (princ "\nTry again!! ") ) (command "._CHANGE" ent "" "_P" "_LA" "STAIR" "") (setq ent (ssname ent 0)) (setq ent_data (entget ent)) (setq start_pt (cdr (assoc 10 ent_data))) (setq end_pt (cdr (assoc 11 ent_data))) (setq mid_pt (mapcar '(lambda (a b) (/ (+ a b) 2.0)) start_pt end_pt)) (setq line_length (distance start_pt end_pt)) (setq circle_diameter (/ line_length 10.0)) (princ "\nSelect the start of the staircase: ") (setq p1 (getpoint)) (princ "\nSelect the end of the staircase: ") (setq p2 (getpoint p1)) (initget 7) (setq num_steps (getint "\nEnter the number of steps: ")) (setq array_vec (mapcar '- p2 p1)) (setq step_vec (mapcar '(lambda (x) (/ x num_steps)) array_vec)) (setq i 1) (while (<= i num_steps) (setq move_vec (mapcar '(lambda (x) (* x i)) step_vec)) (command "._COPY" ent "" "_non" (list 0 0 0) "_non" move_vec) (setq i (1+ i)) ) ;; Circle and arrow line (command "._CIRCLE" mid_pt (/ circle_diameter 2.0)) (setq last_start_pt (mapcar '+ start_pt (mapcar '(lambda (x) (* x num_steps)) step_vec))) (setq last_end_pt (mapcar '+ end_pt (mapcar '(lambda (x) (* x num_steps)) step_vec))) (setq last_mid_pt (mapcar '(lambda (a b) (/ (+ a b) 2.0)) last_start_pt last_end_pt)) (command "._LINE" mid_pt last_mid_pt "") (setq mid1mid2_vec (mapcar '- last_mid_pt mid_pt)) (setq mid1mid2_length (distance mid_pt last_mid_pt)) (if (> mid1mid2_length 0) (progn (setq unit_vec (mapcar '(lambda (x) (/ x mid1mid2_length)) mid1mid2_vec)) (setq perp_vec (list (- (cadr unit_vec)) (car unit_vec) 0.0)) (setq arrow_p1 (mapcar '+ last_mid_pt (mapcar '(lambda (x) (* x 0.10 mid1mid2_length)) unit_vec))) (setq arrow_p2 (mapcar '+ last_mid_pt (mapcar '(lambda (x) (* x -0.15 mid1mid2_length)) perp_vec))) (setq arrow_p3 (mapcar '+ last_mid_pt (mapcar '(lambda (x) (* x 0.15 mid1mid2_length)) perp_vec))) (command "._LINE" arrow_p1 arrow_p2 "") (command "._LINE" arrow_p1 arrow_p3 "") ) ) (command "._UNDO" "_END") (setvar "CMDECHO" 1) (setvar "CLAYER" "0") (princ) )

disregard LOL

Hello World. I've used all the swear words I know and this block still won't behave! When I use the Move grip and pull this block all the way up, it should extend by 5-7/8" ... instead it extends by 5-3/4" and also moves 1/8" from the Basepoint. Any clue what's going on here? Thanks in advance y'all!!! jack.dwg

Hi DATVO. Yes , I update my code to work only for the left side every time.How you do it? Can you post the code? Thanks

@HypnoS,, Glad to know. My version do not INSERT , just copy as you asked at the OP. Seem to be you need to make RISERS.

The OP disappeared without answering any questions.

A word of warning, bedit/attsync might change the block handles, but not always. I'm not sure what triggers it.

Thank you very much BIGAL!! I really appreciate it! I didn't run the code yet, but I analysed it - are there 2 redundant procedures? ColumnRow and Alfa2Number that is only used in ColumnRow?

Does this match your expectations?

I will add the set property later but this is front end as an example, just copy all the code and paste to command line . (defun wow ( / fo ) (setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w")) (write-line " dyntruss : dialog { " fo) (write-line " label = \"Enter Values\" ; " fo) (write-line " : column { " fo) (write-line " width =25; " fo) (write-line " spacer_1 ; " fo) (write-line " : edit_box { " fo) (write-line " key = \"key1\" ; " fo) (write-line " label = \"Length \" ; " fo) (write-line " edit_width = 5; " fo) (write-line " edit_limit = 4; " fo) (write-line " is_enabled = true ; " fo) (write-line " allow_accept=true ; " fo) (write-line " } " fo) (write-line " spacer_1 ; " fo) (write-line " : edit_box { " fo) (write-line " key = \"key2\" ; " fo) (write-line " label = \"Angle \" ; " fo) (write-line " edit_width = 5; " fo) (write-line " edit_limit = 4; " fo) (write-line " is_enabled = true ; " fo) (write-line " allow_accept=true ; " fo) (write-line " } " fo) (write-line " spacer_1 ; " fo) (write-line " : radio_row { " fo) (write-line " : radio_button { " fo) (write-line " key = \"Rb1\" ; " fo) (write-line " label = \"Flipped\" ; " fo) (write-line " } " fo) (write-line " spacer_1 ; " fo) (write-line " : radio_button { " fo) (write-line " key = \"Rb2\" ; " fo) (write-line " label = \"No Flip\" ; " fo) (write-line " } " fo) (write-line " spacer_1 ; " fo) (write-line " } " fo) (write-line " spacer_1 ; " fo) (write-line " ok_cancel ; " fo) (write-line " } " fo) (write-line " } " fo) (close fo) (setq dcl_id (load_dialog fname)) (if (not (new_dialog "dyntruss" dcl_id) ) (exit) ) (set_tile "key1" "10") (set_tile "key2" "0") (set_tile "Rb1" "1") (action_tile "accept" "(setq val1 (atof (get_tile \"key1\")))(setq val2 (atof (get_tile \"key2\")))(setq val3 (get_tile \"Rb1\"))(done_dialog)") (action_tile "cancel" "(setq cancel \"yes\")(done_dialog)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete fname) (if (= val3 "1")(setq visibilty "Flip")(setq visibilty "Noflip")) (princ) ) (wow)

Thanks @devitg it works great!

Maybe this. Does numbers and alphas, as well as a square or circle. Pt num bubble.lsp

You don't use a look up table, as you mentioned just answer the question for length, then add the various blocks selecting the visibility state, you insert the block then call the dcl so can pick which visibility you want then its updated much easier that picking the Blue square and then selecting visibility. Post a new sample dwg with the separate blocks maybe a couple of different structures. Then can look at automating it.

... And the system variable would still remains you set it firstly. Right?

Hi I am writting a lisp to draw 2d stair. The idea is to select the fist step --> move it to layer STAIR then pick two points for the length of the stair and give the number of the steps. Then the code draw the stair with direction arrow in the middle. The code work perfect if i select the two points only from the one side of the stair. Is not all the time the left or the right side depends of the rotation. Can any one help me to update the code to work for bouth sides and don't misalign the steps. Here is the code . By the way i use ZWCAD. (defun c:Stair2D (/ p1 p2 ent ent_data step_start step_end step_vec stair_vec num_steps i base_pt new_p1 new_p2 mid1 mid2 last_base last_p1 last_p2 arrow_p1 arrow_p2 arrow_p3) (vl-load-com) (setvar "CMDECHO" 0) (command "._UNDO" "_BEGIN") (if (not (tblsearch "LAYER" "STAIR")) (command "_layer" "_m" "STAIR" "_c" "90" "" "") ) (setvar "CLAYER" "STAIR") (princ "\nSelect the first step of the staircase: ") (while (not (setq ent (ssget ":S" '((0 . "LINE"))))) (princ "\nTry again!! ") ) (command "._CHANGE" ent "" "_P" "_LA" "STAIR" "") (setq ent_data (entget (ssname ent 0))) (setq step_start (cdr (assoc 10 ent_data))) (setq step_end (cdr (assoc 11 ent_data))) (setq step_vec (mapcar '- step_end step_start)) (setvar "OSMODE" 1) (setq p1 (getpoint "\nSelect the start of the staircase: ")) (setq p2 (getpoint p1 "\nSelect the end of the staircase: ")) (setvar "OSMODE" 0) (initget 7) (setq num_steps (getint "\nEnter the number of steps: ")) (setq stair_vec (mapcar '(lambda (a b) (/ (- b a) num_steps)) p1 p2)) (setq i 1) (while (<= i num_steps) (setq base_pt (mapcar '+ p1 (mapcar '(lambda (x) (* x i)) stair_vec))) (setq new_p1 base_pt) (setq new_p2 (mapcar '+ base_pt step_vec)) (command "._LINE" new_p1 new_p2 "") (setq i (1+ i)) ) (setq mid1 (mapcar '(lambda (a b) (/ (+ a b) 2.0)) step_start step_end)) (setq last_base (mapcar '+ p1 (mapcar '(lambda (x) (* x num_steps)) stair_vec))) (setq last_p1 last_base) (setq last_p2 (mapcar '+ last_base step_vec)) (setq mid2 (mapcar '(lambda (a b) (/ (+ a b) 2.0)) last_p1 last_p2)) (command "._line" mid1 mid2 "" "" "_N") (command "._CIRCLE" mid1 0.06) (setq mid1mid2_vec (mapcar '- mid2 mid1)) (setq mid1mid2_length (distance mid1 mid2)) (setq unit_vec (mapcar '(lambda (x) (/ x mid1mid2_length)) mid1mid2_vec)) (setq perp_vec (list (- (cadr unit_vec)) (car unit_vec) 0.0)) (setq arrow_p1 (mapcar '+ mid2 (mapcar '(lambda (x) (* x 0.10)) unit_vec))) (setq arrow_p2 (mapcar '+ mid2 (mapcar '(lambda (x) (* x -0.15)) perp_vec))) (setq arrow_p3 (mapcar '+ mid2 (mapcar '(lambda (x) (* x 0.15)) perp_vec))) (command "._LINE" arrow_p1 arrow_p2 "") (command "._LINE" arrow_p1 arrow_p3 "") (command "._UNDO" "_END") (setvar "CMDECHO" 1) (setvar "CLAYER" "0") (princ) ) Thanks Drawing2.dwg

First, the code sets CMDECHO to 0 to prevent program from displaying commands like MLEADER or its interactions in the command line. This helps keep cleaner while the program runs. At the end of the program, the code resets CMDECHO to 1, which is AutoCAD's default setting. I copied my old file into this one, so I probably forgot to remove that line. But in this code, it's not necessary. The command will cancel.