Symbol

[jankhan]

Is there any .lisp file (autocad 2000-2002) - In survey data entry of boundary lines I insert circle symbol at the corners of lot boundaries. In the hard copy I want the boundary lines within the circle symbol not plotted, however on the screen when the boundary line is inquired I need to get the actual length. I do not want to trim the lines within the circle. ie all entites within the circle displayed but not plotted.

 

Thanks

 

[lpseifert]

Make a block containing a circle with a wipeout inside.

PL-CIRCLE.dwg

[jankhan]

Thanks mate, I will try it later today.

[VovKa]

(defun c:Test (/ *error* LayerName SS Size)
 (if ((lambda (n)
 (or (vl-position n (arx))
     (and (setq n (findfile n)) (arxload n))
 )
      )
"acmpolygonui.arx"
     )
   (progn (setq LayerName (getvar "CLAYER")
	 Size	   10
   )
   (if (setq SS (ssget (list (cons 0 "LWPOLYLINE"))))
     (foreach EntName
	      (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
       (foreach	Coord (vl-remove-if-not
			(function (lambda (c) (= (car c) 10)))
			(entget EntName)
		      )
	 (setq Coord (cdr Coord))
	 (entmakex (list '(0 . "MPOLYGON")
			 '(100 . "AcDbEntity")
			 (cons 8 LayerName)
			 '(100 . "AcDbMPolygon")
			 '(70 . 1)
			 '(10 0.0 0.0 0.0)
			 '(210 0.0 0.0 1.0)
			 '(2 . "_SOLID")
			 '(71 . 1)
			 '(91 . 1)
			 '(92 . 2)
			 '(73 . 0)
			 '(72 . 1)
			 '(93 . 2)
			 (list 10 (/ Size 2.0) 0.0 0.0)
			 '(42 . 1.0)
			 (list 10 (/ Size -2.0) 0.0 0.0)
			 '(42 . 1.0)
			 '(76 . 1)
			 '(63 . 7)
			 '(421 . 16777215)
			 (cons 11 Coord)
			 '(99 . 0)
			 '(450 . 0)
			 '(451 . 0)
			 '(460 . 0.0)
			 '(461 . 0.0)
			 '(452 . 0)
			 '(462 . 0.0)
			 '(453 . 0)
			 '(470 . "")
		   )
	 )
       )
     )
   )
   )
   (princ)
 )
)

[jankhan]

Hi vovka,

 

Thanks,

 

I loaded the .lsp in autocad 2002, its not working.

 

I have attached a pdf of the survey plan, the line were trimed, I need to insert the three symbols types with line going to the centre but not plotting. ie stops at the outer edge of symbols.

 

Sorry I am new in using lsp.

 

jan

surveyplan.pdf

[VovKa]

jankhan

i think you do not have the file acmpolygonui.arx, it is a part of Map I suppose.

then you should act the way that lpseifert proposed - create blocks with either wipeouts or solid hatches of color 255,255,255