71
AutoLISP (Vanilla / Visual) / Re: Hundreds (or thousands!) of object reactors existing in a drawing... bad idea?
« Last post by mhupp on May 17, 2022, 02:48:30 PM »that block needs to be exploded for modification
Why not refedit ?
that block needs to be exploded for modification
(defun c:convert_arc_line ( / arc line)
(if (setq arc (ssget "_X" '((0 . "ARC")))) (command "_.pedit" "_m" arc "" "_Y" "") (princ (strcat "\nMohan there were no arc Object(s) found ... ")))
(if (setq line (ssget "_X" '((0 . "LINE")))) (command "_.pedit" "_m" line "" "_Y" "") (princ (strcat "\nMohan there were no line Object(s) found ... ")))
(princ (strcat "\nMohan total of " (itoa (sslength arc)) " Arc Object(s) & " (itoa (sslength line)) " Line Object(s) were converted to Polylines ... " ))
(princ))
Command: CONVERT_ARC_LINE(defun c:gdt ( / a ldtx) ;; http://www.theswamp.org/index.php?topic=404.msg4785#msg4785
(vlax-add-cmd "gdt" 'c:gdt "gdt" acrx_cmd_transparent) ;; allows trans use!
(princ "\n Dim Extractor..")
(setq a (entget (car (entsel)))) ;; Keith..
(setq ldtx (distof (rtos (cdr (assoc 42 a))(getvar "lunits")(getvar "luprec"))))
;(princ (strcat "\n Dim Length: "(rtos ldtx)))
(princ (rtos ldtx))
(princ)
)