新人第六贴，获取ssget 框选的对角点（未解决）

rsent

；第一种
(DEFUN C:tt()
(setq s(ssget)
(princ)
)
；第二种
(DEFUN C:tt()
(setq p1 (getpoint "\n框选点: "))
(setq p2 (getcorner p1 "\n框选对角点: "))
(setq s (ssget "c" p1 p2))
(princ)
)

想用第一种选择，得出框选对角点。
请老师们指点下我。下面是我找到的代码，看能有帮助吗。

• (defun getboundaryPt (vlaObj / minPt maxPt)
•   (vla-getBoundingbox vlaObj 'minPt 'maxPt)
•   (setq        minPt (vlax-safeArray->list minPt)
•         maxPt (vlax-safeArray->list maxPt)
•   )
•   (list minPt maxPt)
• )
• (defun GetSSPts (ss / DPtLst  n)
•   (setq DPtLst nil n -1)
•   (repeat (sslength ss)
•     (setq DPtLst (cons (getboundaryPt (vlax-ename->vla-object (ssname ss (setq n (1+ n))))) DPtLst))
•   )
•   (setq DPtLst  (apply 'append DPtLst))
•   (list
•     (apply 'mapcar (cons 'min DPtLst))
•     (apply 'mapcar (cons 'max DPtLst))
•   )
• )
  

Lispboy

很多时候并不是你认为这样做，就是你后续问题继续处理最好的方案，你先说说你为什么想要这两点？ 你接着想做什么？ 很多时候请教问题，不是把你的思路去影响帮助你的人，你客观的说明下问题就行了。

比如你这个问题，你本可以GETPOINT两点，送给SSGET做参数，为什么还想先用SSGET然后获得两点呢？

/db_自贡黄明儒_

Lispboy 发表于 2014-12-16 08:27
很多时候并不是你认为这样做，就是你后续问题继续处理最好的方案，你先说说你为什么想要这两点？ 你接着想 ...

我猜一下，楼主想得选择集最小包围盒，是想用ssnamex一步求得？

Lispboy

/db_自贡黄明儒_ 发表于 2014-12-16 08:40
我猜一下，楼主想得选择集最小包围盒，是想用ssnamex一步求得？

如果如老黄说的，那就不应该扣在SSGET时候找两点，而是对得到的选择集做工作，得到需要的数据。所以说，问题一定不要让自己的思路影响给你帮助的人，要把问题说清楚，后续工作想做什么，让别人讨论出一个最合适的方案。

rsent

Lispboy 发表于 2014-12-16 08:27
很多时候并不是你认为这样做，就是你后续问题继续处理最好的方案，你先说说你为什么想要这两点？ 你接着想 ...

用ssget选择可以直接看清选择好的对象。。

代码如下，看能修改为ssget吗？
;转换
(DEFUN C:sol()
(command "ucs" "v")
(setq p1 (getpoint "\n框选点: "))
(setq p2 (getcorner p1 "\n框选对角点: "))
(setq s (ssget "c" p1 p2))
(setvar "TILEMODE" 0)
(command "solprof" s "" "Y" "Y" "Y")
(setq s1 (ssget "c" p1 p2 '((8 . "ph*"))))
(setq s2 (ssget "c" p1 p2 '((8 . "pv*"))))
(command "erase" s1 "")
(setvar "TILEMODE" 1)
(command "cutclip" s2 "")
(command "ucs" "w")
(princ)
)

newer

rsent 发表于 2014-12-17 10:10
用ssget选择可以直接看清选择好的对象。。

代码如下，看能修改为ssget吗？

你 想选完后，暂停，让你看到选到哪些吗？

rsent

修改了下。。
;转换
(DEFUN C:tt()
(command "ucs" "v")
(setq s (ssget))
(setvar "TILEMODE" 0)
(command "solprof" s "" "Y" "Y" "Y")
(setq ph (entlast))
(command "erase" ph "")
(setq pv (entlast))
(setvar "TILEMODE" 1)
(command "cutclip" pv "")
(command "ucs" "w")
(princ)
)


唯一的缺点就是从西南等轴测返回主视图的时候，要粘贴2次，才对。

rsent

有没有切换视口的命令？我就可以自动复制 粘贴了。不需要手工来粘贴，