象征
有吗。lisp文件（autocad 2000-2002）-在边界线的测量数据输入中，我在地块边界的拐角处插入圆符号。在硬拷贝中，我不希望绘制圆符号内的边界线，但是在屏幕上查询边界线时，我需要获得实际长度。我不想修剪圆内的线条。即显示但未绘制圆内的所有图元。谢谢
制作一个包含圆形的块，内部有一个覆盖区域。
PL-圆形。图纸 谢谢，伙计，今天晚些时候我会试试的。
(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)
)
)
你好，沃夫卡，
谢谢
我加载了。在autocad 2002中，lsp不起作用。
我附上了一个pdf的调查计划，线被修剪，我需要插入三个符号类型与线去中心，但没有打印。即停在符号的外边缘。
对不起，我是第一次使用lsp。
简
调查计划。pdf 詹汗
我认为你没有acmpolygonui文件。阿克斯，我想这是地图的一部分。
然后，您应该按照lpseifert建议的方式进行操作-使用255255色的擦除或实体图案填充创建块
页:
[1]