如何使用SSGET函数得到图中所有纵坐标相等而横坐标大于某一个值的块实体?

wzh · 发表于 2004-5-14 01:27:00

如何使用SSGET函数得到图中所有纵坐标相等而横坐标大于某一个值的块实体?
(setq ssent (ssget "X" '((-4 . ""))
)
)

龙龙仔 · 发表于 2004-5-14 08:30:00

下列是插入點縱坐標相等100 橫坐標大於某一個值>10
(setq SSENT (ssget "X" '((0 . "INSERT") (-4 . ">,=,*") (10 10.0 100.0 0.0))))

wzh · 发表于 2004-5-14 18:54:00

谢谢,这种方式的确有效,可我要是将100和10用表达式表示就不行了.
(setq SSENT (ssget "X" '((0 . "INSERT") (-4 . ">,=,*") (list 10 (car Pt) (cadr Pt) 0.0))))

无痕 · 发表于 2004-5-14 23:58:00

龙龙仔真是好棋！还是第一次见到这种用法。建议加分，我先送花一朵：）
(setq pt (getpoint)
SS (ssget "X" (list'(-4 . ">,>,*") (cons 10 pt))))

wzh · 发表于 2004-5-15 01:19:00

可是怎么筛选块呢?如何把(0 . "INSERT")加进去呢?

无痕 · 发表于 2004-5-15 01:27:00

不会吧！！！！我建议你还是不要学lsp了，真难为你了，看着都学不会：（(setq pt (getpoint)
SS (ssget "X" (list '(0 . "INSERT")'(-4 . ">,=,*") (cons 10 pt))))

wzh · 发表于 2004-5-15 01:35:00

先谢谢您,不过谁都有钻死角的时候!!!

雅明 · 发表于 2004-5-15 08:47:00

你这不是钻死角哟，别人第一次就帮你一并解决了啊!呵呵。