Leaderboard

Dear CADTutor friends, it seems as though most of us are now working from home after some form of lockdown has been announced in many countries across the world. This note is just to say that CADTutor and the CADTutor Forum will remain up and running throughout the crisis. It's at times like these that communities like this come into their own, to help connect people who may otherwise feel isolated. If you have any ideas how this forum could help e.g. new forums, additional functionality etc. Please let me know and I'll see what I can do. Stay safe, David

What do you mean by 'text name' ? is it text style or text string ?

Hahahaha .. I was wondering when someone would bring that up

As regards your concerns, you have not included the raster image, so I cannot see what is happening. The previous comments are helped by a crystal ball.

Sure, I renamed the command CLCL (defun change_layer_color_ltp ( ent / DLname) (setq ;;ent (car esel) DLname (strcat (cdr (assoc 8 (entget ent))) "-DEMO") ) (command "_.layer" "_make" DLname "_color" 40 "" "_ltype" "HIDDEN2" "" "" "_.chprop" ent "" "_layer" DLname "" ) (princ) ) (defun c:clcl ( / ss i) ;; selection (princ "\nMake selection: ") (setq ss (ssget)) ;; now perform the function for every selected entity (setq i 0) (repeat (sslength ss) (change_layer_color_ltp (ssname ss i)) (setq i (+ i 1)) ) (princ) )

Try this (repeat (setq x (length lst)) (setq pt (nth (setq x (- x 1)) lst)) (command "circle" pt 3.0) )

(defun c:test (/ n p1 p d $) (setq os (getvar 'osnapz)) (setvar 'osnapz 1) (initget 1) (and (setq n (getreal "\nStart STA : ")) (setq p1 (getpoint "\nStart pt ")) (setq $ (getstring (strcat "\nIncrement <Enter> or '-' \n"))) (while (setq p (getpoint p1 "\nNext point ")) (setq d (distance p1 p)) (setq d (if (wcmatch $ "-*") (- d) d ) ) (princ (strcat "\n" (rtos d 2 3) )) (entmakex (list '(0 . "TEXT") (cons 1 (_rtosta (+ n d) 3)) (cons 40 (getvar 'textsize)) (cons 10 (trans p 1 0)) ) ) ) (setvar 'osnapz os) ) (princ) )

This code is from an old post here I have removed the color problem. ; code by Alanjt (defun _isPointInside (polygon point / temp test) (if (vlax-curve-isClosed polygon) (progn (setq test (eq (length (vlax-invoke (setq temp (vlax-ename->vla-object (entmakex (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") (cons 10 point) (cons 11 (trans '(1. 0. 0.) polygon 0)) ) ) ) ) 'IntersectWith (vlax-ename->vla-object polygon) acExtendNone ) ) 6 ) ) (vla-delete temp) test ) ) ) ( (_isPointInside (car (entsel "\nselect pline"))(getpoint "\nPick a point")) returns T

try this AD-Automatic Dimension Autocad.LSP

many examples just search -> pdim by Marko suppress arrow head looks tidy..