发一个高深的帖子

357785513 · 发表于 2013-7-10 20:44

先点选择一个块名如名为"A"的块,
再点选一个闭合多段线,
这个多段线内名为"A"的块,
就被选择了
怎么弄呀各位高人

ZZXXQQ · 发表于 2013-7-10 21:02

本帖最后由 ZZXXQQ 于 2013-7-10 21:05 编辑

...
(setq ss (ssadd))
(if (and (setq s1 (entsel "\n选择图块A: "))
         (setq ent (entget (car s1)))
         (= (cdr(assoc 2 ent)) "A")
         (setq s2 (entsel "\n选择闭合多段线: "))
         (setq ent2 (entget(car s2)))
         (= (cdr(assoc 0 ent2)) "LWPOLYLINE"))
         (> (rem (cdr(assoc 70 ent2)) 2) 0)) (progn
(ssadd (car s1) ss)
(ssadd (car s2) ss)
(sssetfirst ss ss)
;do some thing
))
...

357785513 · 发表于 2013-7-10 21:05

神人呀,哥,但块名不定为A呀,有可能是B呀,或者其它能行不

357785513 · 发表于 2013-7-10 21:15

程序也有问题,运行不了

357785513 · 发表于 2013-7-10 21:25

还没修改过标题呢,不懂改

Gu_xl · 发表于 2013-7-10 21:26

(defun c:tt (/ e1 e2 ss)
(if (and
(setq e1 (car (entsel "\n选择块:")))
(= "INSERT" (cdr (assoc 0 (setq e1 (entget e1)))))
(setq e2 (car (entsel "\n选择多段线:")))
(= "LWPOLYLINE" (cdr (assoc 0 (setq e2 (entget e2)))))
)
(progn
(setq ss
(ssget "cp"
(mapcar '(lambda (p) (trans (cdr p) 0 1))
(vl-remove-if '(lambda (x) (/= 10 (car x))) e2)
)
(list '(0 . "INSERT") (assoc 2 e1))
)
)
(if ss
(sssetfirst nil ss)
)
)
)
(princ)
)

357785513 · 发表于 2013-7-10 21:32

Gu_xl 高人呀,太棒了,

357785513 · 发表于 2013-7-10 21:37

只能说服了哥

shh1980 · 发表于 2016-5-26 19:19

Z 版和 Gu_xl 的程序高，楼主的标题...也很高啊!

账号		自动登录	找回密码
密码			注册

[基础] 发一个高深的帖子

点评

(

点评

浏览过的版块