Recent Posts
I don't know, maybe all 3 are the same...dig more this issue. probably problem is that it is one monitor with 1 on each side, but at the end it is one big window desktop.
Sets Trusted Paths: Sets trusted paths for AutoCAD so that Lisp files don't face challenges.
Folder Existence Check: Defines a function to check if a folder exists locally and create it if it doesn't.
Sets Support Paths: Specifies support paths and working paths for various AutoCAD functionalities.
Loads the Enterprise Menu Configuration:
Sets Help File Pathing: Specifies the location of the help files.
Adds the location of our custom dictionary file.
Sets Printer Configuration Paths: Specifies paths for printer configurations.
Sets Plot Style Table Paths: Specifies paths for plot style tables.
Sets Automatic Save Location: Sets the location for automatic saving of files.
Sets Drawing Template File Location: Specifies the location of drawing template files.
Sets Default Template File Name: Specifies the default template file name for new drawings.
Sets Log File Locations: Sets locations for various log files.
Sets Save Version of AutoCAD: Sets the save version of AutoCAD.
Sets Various Variables: Sets various AutoCAD variables needed for operations.
Setts Additional Variables: Sets additional optional variables to aid in work.
Changes Screen Colors: Changes screen colors for model space background, command area, and crosshairs.
Adjusting Layer Isolation: Adjusts layer isolation settings.
Sets Registry Value I can update values if needed.
(defun c:tt (/ e ms mat ents basepoint)
(if (and (setq e (xdrx-nentselex
(xdrx-string-multilanguage
"\n拾取标注文本<退出>:"
"\nPick Dimension Text<Exit>:"
)
'((0 . "*text"))
)
)
(xdrx-object-iskindof (car (last e)) "dimension*")
)
(progn
(setq ms (xdrx-get-currentspace)
mat (xdrx-matrix-identity 3)
ents (xdrx-object-deepclone ms (car e) mat)
basepoint (xd::geom:get9pt (xdrx_entity_box ents) 5)
)
(xd::drag:freemove ents basepoint (+ 1 4 128) 547 t)
)
)
(princ)
)
You quoted my code that is not last one... Copy with ctrl+c and ctrl+v the code into notepad and save it as *.lsp - be sure that all file types are selected from notepad before you save it as *.lsp... I am tired now and don't understand what else do you want... It works for me perfectly...
Bye and best wishes...
(defun c:tolerance_Display (/ DT ENT ID SDT)
(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
(while
(setq dt (ssget ":S" '((0 . "DIMENSION")))
sdt (sslength dt)
id 0
) ;_ end of setq
(vl-cmdf "_.undo" "_begin")
(repeat sdt
(progn
(setq
ent (ssname dt id)
tol (vla-get-tolerancedisplay (vlax-ename->vla-object ent))
id (1+ id)
) ;_ end of setq
(if (or (= tol 1) (= tol 2) (= tol 3))
(vla-put-textgap (vlax-ename->vla-object ent) -0.625)
(vlax-put-property
(vlax-ename->vla-object ent)
'toleranceDisplay
4
) ;_ end of vlax-put-property
)
) ;_ end of progn
) ;_ end of repeat
(vl-cmdf "_.undo" "_end")
)
(princ)
) ;_ end of defun
(princ)
;;;;;;;;;;;;;;;;;;;;;;;;;;I've added lower and upper deviations choices...Code - Auto/Visual Lisp: [Select]
M.R.