向各位请教 选择颜色的问题(圆中心俩条线 绿/红 只选择红色的不要绿色的)
我想选择一个圆或一个点 选择线 但是圆中线点有2根线 一根绿色的 一根红色的 我只想选择和圆一个颜色的线 请问各位老师 如果去if我想过(setq ss_1(SSGET "c" p1_1 p2_1'((-4 . "<AND")(0 . "LINE")(62 . cool)(-4 . "AND>"))))选择是不可以这么写的..... 请问有什么好的办法吗?
(setq p1(getpoint))
(setq p2 (getcorner p1))
(setq zz (ssget "c" p1 p2 '((-4 . "<AND")(0 . "POINT,CIRCLE")(-4 . "AND>"))))
(setq ent(ssname zz 0))
(setq en(entget ent))
(setq lx (cdr (assoc 0 en)))
(setq bj (cdr (assoc 40 en)))
(setq cool (cdr (assoc 62)))
(if (or (= lx "CIRCLE"))
(if (or (= bj 25) (= bj 27.5))
(progn
(setq n 0)
(repeat (sslength zz)
(setq ent (ssname zz n))
(setq en (entget ent))
(setq px1 (cdr (assoc 10 en)))
(setq p1_1 (poLar px1 (* 0.25 pi) 1))
(setq p2_1 (poLar px1 (* 1.25 pi) 1))
(setq ss_1(SSGET "c" p1_1 p2_1'((-4 . "<AND")(0 . "LINE")(-4 . "AND>"))))
(if (/= ss_1 nil)
(command "ERASE" ss_1 "")
)
(setq n(1+ n)))
)))
底层的资料与直观的视觉描述是会有差距的
建议上传您的 Dwg 文件 (处理前 and 处理后)
Andyhon 发表于 2017-10-20 10:08
底层的资料与直观的视觉描述是会有差距的
建议上传您的 Dwg 文件 (处理前 and 处理后)
可能我把简单的说的复杂化了 就是选择上边的红色的圆删除这个红色的圆和红色的线:P 红色的圆和红色的线
ByLayer? ByBlock?
页:
[1]