All Activity

Can someone review the code and pick out the error in logic? The BLADE IDE in BricsCAD shows no syntax errors: The code runs well. The defined layer for the centerline is not activating when the command is run (nor returning to the older/previous layer) There is obviously something out of order in the code logic and order. Leaning on AI to learning programming is not a valid shortcut for study and experience! Back to the books for me! Thanks! ;;; CENTERLINE.lsp - Custom CENTERLINE assigning it to the CENTERLINE layer ;;; Author: CEH Assisted by AI ;;; Created on: 2025-12-16 ;;; Last edited: 2025-12-16 ;;; Description: ;;; BricsCAD CENTERLINE command redefined: ;;; Creates centerlines on layer CENTERLINE with CENTER2 linetype, ByLayer color, and ~0.008 inch lineweight ;;; ;;; ------------------------- Program Start ------------------------- ;;; (defun c:CENTERLINE (/ oldlayer oldltype oldlw laydata) ;; Save current settings (setq oldlayer (getvar 'clayer) oldltype (getvar 'celtype) oldlw (getvar 'celweight)) ;; Ensure CENTERLINE layer exists (if (not (tblsearch "LAYER" "CENTERLINE")) (progn ;; Load CENTER2 linetype if not already loaded ;; Tries acad.lin (imperial) first, then acadiso.lin (metric) (cond ((not (tblsearch "LTYPE" "CENTER2")) (command "._-linetype" "_load" "CENTER2" "acad.lin" "") ) ((not (tblsearch "LTYPE" "CENTER2")) (command "._-linetype" "_load" "CENTER2" "acadiso.lin" "") ) ) ;; Create the layer: CENTER2 linetype, ByLayer color, ByLayer lineweight initially (command "._-layer" "_make" "CENTERLINE" "_ltype" "CENTER2" "" "_color" "bylayer" "" "_lweight" "bylayer" "") ) ;; If layer exists but linetype might not be set (progn (command "._-layer" "_set" "CENTERLINE" "_ltype" "CENTER2" "CENTERLINE" "") ) ) ;; Set current layer to CENTERLINE (setvar 'clayer "CENTERLINE") ;; Set current linetype and lineweight to ByLayer (setvar 'celtype "BYLAYER") (setvar 'celweight -1) ; -1 = ByLayer ;; Set layer lineweight to exactly 0.008 inches (converted to internal 0.01 mm units) ;; 0.008 in = 0.2032 mm → 20.32 → integer 2032 (in hundredths of mm? Wait, no: ;; DXF code 370 stores lineweight in hundredths of mm (0.01 mm units), always mm. (setq laydata (entget (tblobjname "LAYER" "CENTERLINE"))) (setq laydata (subst (cons 370 20) (assoc 370 laydata) laydata)) ; 20 = 0.20 mm ≈ 0.00787 in (very close to 0.008 in) (entmod laydata) ;; Run the original CENTERLINE command (command "._centerline") ;; Restore previous settings (optional) (setvar 'clayer oldlayer) (setvar 'celtype oldltype) (setvar 'celweight oldlw) (princ) ) (princ "\nCENTERLINE command redefined: creates centerlines on layer CENTERLINE with CENTER2 linetype, ByLayer color, and ~0.008 inch lineweight.") ((princ "\nType CENTERLINE to run.")) (princ)

One simple way is to select the first point (A), use Ctrl-RightClick to open the temporary snap menu, pick From, choose point B, and enter the offset. It's a little tricky the first few times you do it, because you have to get the order of the inputs correct. By the way, this works for any grip selection, not just the stretch command. When you finish this task, go over the other options on that menu, you'll find several that should help you in your daily routine. If this doesn't solve your issue, please provide more information.

Hi, I'd like to stretch the lower frame from point A to be an exact amount from point B. Is there a way to "acquire" the second point within the stretch command but only as reference? Thanks!

Just use a point and insert Field in Mtext and format it how you want. When copying both point and text it will keep the new copied items linked. Regen to update the coordinates.

You can also use fields with selection of points? (defun make_field (ent / pt obj) (setq pt (trans (cdr (assoc 10 (entget ent))) 1 0)) (mapcar '(lambda (lx) (apply '(lambda (ins_point value_field att_point txt_height dwg_dir name_layer txt_rot / nw_obj) (setq nw_obj (vla-addMtext Space (vlax-3d-point (trans ins_point 1 0)) 0.0 (strcat "{\\f@Arial Unicode MS|b0|i0|c0|p34;\\Q15;" "%<\\AcObjProp.16.2 Object(%<\\_ObjId " (itoa (vla-get-ObjectID (vlax-ename->vla-object ent))) value_field "}" ) ) ) (mapcar '(lambda (pr val) (vlax-put nw_obj pr val) ) (list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'Layer 'Rotation) (list att_point txt_height dwg_dir ins_point name_layer txt_rot) ) ) lx ) ) (list (list (mapcar '+ (trans pt 1 0) (list (getvar "TEXTSIZE") (+ (* (getvar "TEXTSIZE") 1.25) (getvar "TEXTSIZE")) 0.0)) ">%).Coordinates \\f \"%lu2%pt1%pr3%ps[X:,]\">%" 4 (getvar "TEXTSIZE") 5 "Id-XY" rtx ) (list (mapcar '+ (trans pt 1 0) (list (getvar "TEXTSIZE") 0.0 0.0)) ">%).Coordinates \\f \"%lu2%pt2%pr3%ps[Y:,]\">%" 4 (getvar "TEXTSIZE") 5 "Id-XY" rtx ) (list (mapcar '- (trans pt 1 0) (list (- (getvar "TEXTSIZE")) (+ (* (getvar "TEXTSIZE") 1.25) (getvar "TEXTSIZE")) 0.0)) ">%).Coordinates \\f \"%lu2%pt4%pr3%ps[Z:,]\">%" 4 (getvar "TEXTSIZE") 5 "Id-Z" rtx ) ) ) ) (defun c:point-xyz_field ( / htx rtx AcDoc Space ncol ss n) (initget 6) (setq htx (getdist (getvar "VIEWCTR") (strcat "\nSpecify the height of the field <" (rtos (getvar "TEXTSIZE")) ">: "))) (if htx (setvar "TEXTSIZE" htx)) (if (not (setq rtx (getorient (getvar "VIEWCTR") "\nSpecify the orientation of the field <0.0>: "))) (setq rtx 0.0)) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ncol '(96 174) ) (foreach n '("Id-XY" "Id-Z") (cond ((null (tblsearch "LAYER" n)) (vlax-put (vla-add (vla-get-layers AcDoc) n) 'color (car ncol)) ) ) (setq ncol (cdr ncol)) ) (while (null (setq ss (ssget '((0 . "POINT")))))) (repeat (setq n (sslength ss)) (make_field (ssname ss (setq n (1- n)))) ) (prin1) )

Thanks for letting me know. I’ve noted it.

No, I'm not giving out my email, nor should anybody else. Just simply provide a new draw with a MText with the problem, you can change the wording as well. It may be something a STRIP FORMATING LISP would fix or maybe go into the MText properties and remove the formatting manually. Anything else and I would need the .dwg.

Just a word of warning: I would not post my e-mail address in a public post...

@BIGAL So in principal I agree with your approach draw rectangles along the selected viewports, send to model space and then select the key plan to bring them back to paperspace. The problem I faced I stumbled across is that you can not define which viewport to CHspace without the user selecting the viewports. So my idea of the optimal workflow/lisp would look something like this: 1. Select Key Plan Viewport 2. Select Insert Viewports 3. Draw Rectangle on all Inset viewports 4. Send Rectangles to ModelSpace of each Inset viewport (So they are at the right scale). 5. Bring all rectangles to PaperSpace through the Key Plan Viewport.

like this? (defun c:XYText (/ pt str box) (while (setq pt (getpoint "\nPick point for coordinate text: ")) (setq str (strcat "X=" (rtos (car pt) 2 4) "\nY=" (rtos (cadr pt) 2 4) "\nZ=" (rtos (caddr pt) 2 4))) (vla-addmtext (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point pt) 0 str) ) (princ) )

(defun C:CPP (/ PNT1 P1X P1Y STDY DY COORD PTXT) (setq PNT1 (getpoint "\nPick coordinate point: ")) (setq P1X (car pnt1)) ;x coord (setq P1Y (cadr pnt1)) ;y coord (setq P1Z (caddr pnt1)) ;z coord (setq STDX (rtos P1X 2 3)) (setq STDY (rtos P1Y 2 3)) (setq STDZ (rtos P1Z 2 3)) (setq COORD (strcat "E" STDX) COORD1(strcat "N" STDY) COORD2(strcat "EL" STDZ)) (setq PTXT (getpoint PNT1 "\nPick text location: ")) (command "LEADER" PNT1 PTXT "" COORD COORD1 COORD2 "" "" "") (princ)) ; end

this is someone did which is existing code, could you please modify as I need in CAD X Y Z SAMPLE.dwg

CAN U GIVE YOUR EMAIL ADDRESS

Can you post a .dwg with this MText?

All points in the drawing, select points, etc.? Can you post a sample .dwg with before and after?

looking a lisp quick xyz coordinates text placed from selected points I need x= y= z= not like x, y, z

I looked for this on various websit es including youtube and solved it using to clear explanation here! Knowing that the Bing map data streams from the Autodesk 360 cloud (and isn't saved in the DWG) is the key piece of info that solves the mystery of why it disappears for others.

I am using ZWCAD 2026. A small dot appears near an MTEXT, but I did not create it. When I select the dot, the MTEXT is selected. The dot cannot be deleted, and it is not visible inside the MTEXT editor. Text style used: SIMPLEX (SHX font). This drawing was copied/imported from another file. What is this dot and how can I remove it permanently? Thanks in advance.

Buenos días, el autocad que tengo es el 2026, pertenece a mi empresa. Los planos que realizo son isométricas de tubería y cuando tengo que hacer una línea, pueden que salgan entre 4 hasta 35 planos de isométricas. Todos los planos los tengo en el modelo y me creo una presentación de cada isométrica, "Selecciono todas las presentaciones", ejecuto "publicar las presentaciones seleccionadas" y me crean PDF independientes, ejemplo: - Fichero de autocad "Tomo.dwg" y presentaciones 001, 002, 003, etc. La rutina me lee "TOMO" y las presentaciones, una a una. Y me crea TOMO-(con un guion y seguidamente el nombre de las presentaciones) TOMO-001, TOMO-002, TOMO-003, etc. Pero a la rutina del principio que funciona muy bien, no separa el nombre de fichero dwg y la presentación. Muchas gracia por ayudarme "bidal", pero no se donde colocar lo que has mandado, siento ser tan torpe.

Yes. I know. I already mentioned that this problem could arise on some long segments during turns. I didn't want to delay posting again to fix this. But I already have an idea of how to solve it. I'll post the solution as soon as I can.

Like @dan20047 I make rectangs and then make a layout matching that rectang. Where I worked our title block was fixed, so the viewport in a layout was based on the matching rectang at a scale. The rectangs can be rotated and the viewport will be Twisted to match. You can pick a Viewport and get its info then draw a rectang that matches in paperspace then do a simple CHSPACE, all done. Look at these 3 values. Just take 1/2 the 40 and 41 can work out the corners. (defun c:vp2model ( / vp cp d1 d2 p1 p2 lay) (command "pspace") (setq vp (entget (car (entsel "\nPick the viewport ")))) (setq cp (assoc 10 vp)) (setq cp (list (cadr cp)(caddr cp))) (setq lay (cdr (assoc 8 vp))) (setq d1 (/ (cdr (assoc 40 vp)) 2.0)) (setq d2 (/ (cdr (assoc 41 vp)) 2.0)) (setq p1 (mapcar '+ cp (list (- d1) (- d2) 0.0))) (setq p2 (mapcar '+ cp (list d1 d2 0.0))) (setvar 'clayer lay) (command "Rectang" p1 p2) (command "chspace" (entlast) "" ) (command "pspace") (princ) ) A question will the layouts have more than one viewport as you need to identify which viewport has been selected.

If you don't want to go down the OBDX method you can use a simple script to edit multiple dwgs. There are various ways to get a dwg name list, I use Word to make a script like this. Start with a list of dwgs, you can Replace ^p with a new line, ^p(load "chgvis") same for close the ^p is end of line. Another can get lisp to write the script file. Use (vl-directory-files "D:\\acadtemp" "*.dwg" 1) to get a list of dwg names. Open dwg1 (load "chgvis") Close Y Open dwg2 (load "chgvis") Close Y Open dwg3 (load "chgvis") Close Y Open dwg4 (load "chgvis") Close Y Yes 1st step is get lisp code to work. Use Lee-mac dynamic block lisp to change visibility, Don't forget must use SSGET '((0 . "INSERT")) but must then look for "Effectivename" of the block objects as Dynamic blocks usually have a name like "*U12". Lastly I use an old fashioned DOS command as it can get a list of dwg names including sub directories. Have a go if get stuck post again.

You are correct. change the value of presentacion. (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) "-" presentacion ) (setq num (getint "\nEnter start number ")) (cond ((< num 10)(setq presentacion (Strcat "00" (rtos num 2 0)))) ((< num 100)(setq presentacion (Strcat "0" (rtos num 2 0)))) ((>= num 100)(setq presentacion (rtos num 2 0))) ) (setq num (1+ num))

My $0.05 I use this method in some code, I get all objects inside a poly object, and change layer then do a Layer off, can then do a "Select All" and use the simple chprop command to change layer to Site" then turn layer exist back on. In another program I go a step further and not only change layer name but add "EXIST-" to the layer name and change its color to light grey. As we had in house surveyors made a list of layer names to look for may be useful as it does not rely on a inside outside approach.

Here is my code which draws mspace rectangles for viewport extents. It's missing subroutines prefixed with XYZ, but the main code for the coordinates can be used. ;;; Draw rectangle inside viewport limits (defun c:RTV (/ pt1 pt2 dy dx vcx vcy pt3x pt3y pt4x pt4y) (XYZ-ERROR-INIT (list (list "clayer" (getvar "clayer") "cmdecho" 0) T)) ;do list of variables to be set/reset (if (not XYZ_LAY_VPORT) (setq XYZ_LAY_VPORT (getvar "clayer"))) (if (not (tblsearch "LAYER" XYZ_LAY_VPORT)) (command "-layer" "make" XYZ_LAY_VPORT "color" "7" "" "plot" "no" "") ;make layer if it doesn't exist ) (command "-layer" "thaw" XYZ_LAY_VPORT "on" XYZ_LAY_VPORT "set" XYZ_LAY_VPORT "") ;thaw layer whether it exists or not (if (or (= 1 (caar (Vports))) ;determine if in mspace vport (= 1 (getvar "tilemode"))) (progn (XYZ_rectangle nil (getvar "vsmin") (getvar "vsmax")) (command "scale" (entlast) "" (getvar "viewctr") (/ (getvar "viewsize") (- (cadr (getvar "vsmax")) (cadr (getvar "vsmin")))) ) ) (progn ;if in mspace vport (setq pt1 (cadr (car (vports))) ;vport corners pt2 (caddr (car (vports))) dy (distance pt1 (list (car pt1) (cadr pt2))) ;height of vport dx (distance pt2 (list (car pt1) (cadr pt2))) ;width of vport vcx (car (getvar "viewctr")) ;x pt of vport center vcy (cadr (getvar "viewctr")) ;y pt sclf (/ (getvar "viewsize") dy) ;vport scale factor pt3x (- vcx (* 0.5 dx sclf)) ;points of vport extent pt3y (- vcy (* 0.5 dy sclf)) pt4x (+ vcx (* 0.5 dx sclf)) pt4y (+ vcy (* 0.5 dy sclf)) ) (XYZ_rectangle nil (list pt3x pt3y) (list pt4x pt4y)) ;if not in mspace use virtual viewport limits ) ) (princ "\nPline rectangle drawn to viewport limits") (XYZ-ERROR-RESTORE) )