Question

lisp求最大外形矩形 ，如何才能将选择集内所有对象进行循环单独绘制最大外形矩形？？谢谢

lisp求最大外形矩形 ，如何才能将选择集内所有对象进行循环单独绘制最大外形矩形？？谢谢

Answer 1

我可以解决选择集内所有的直线、圆弧、圆和polyline的最大外形矩形，排除了text、图块等。

Answer 2

1. (defun try-getbox (e / en i l max1 min1 pt1 pt2 sn tx1 tx2 ty1 ty2 tye x1 x2 y1 y2)

2. (setq tye(type e))

3. (cond 

4. ((= 'VLA-object tye)

5. (vla-GetBoundingBox e 'p1 'p2)

6. (setq min1 (vlax-safearray->list p1))

7. (setq max1 (vlax-safearray->list p2))

8. (list min1 max1)

9. )

10. ((= 'ENAME tye)

11. (try-GetBox (vlax-ename->vla-object e))

12. )

13. ((or(= 'LIST tye)(= 'PICKSET tye))

14. (if (= 'PICKSET tye)(setq e (repeat (sslength ss)

15. (setq l(cons (vlax-ename->vla-object(ssname ss(setq i(1+ i)))) l))

16. )))

17. (if (= ENAME(type(car e)))(setq e(mapcar 'vlax-ename->vla-object e)))

18. (vla-getboundingbox (car e) 'pt1 'pt2)

19. (setq 

20. pt1(vlax-safearray->list pt1)

21. pt2 (vlax-safearray->list pt2)

22. tx1 (car pt1)

23. ty1 (cadr pt1)

24. tx2 (car pt2)

25. ty2 (cadr pt2)

26. )

27. (setq i 0)

28. (setq sn (length e))

29. (repeat (1- sn)

30. (setq en (nth (setq i (1+ i))e))

31. (vla-getboundingbox en 'pt1 'pt2)

32. (setq 

33. pt1(vlax-safearray->list pt1)

34. pt2 (vlax-safearray->list pt2)

35. x1 (car pt1)

36. y1 (cadr pt1)

37. x2 (car pt2)

38. y2 (cadr pt2))

39. (if (> tx1 x1)(setq tx1 x1))

40. (if (> ty1 y1)(setq ty1 y1))

41. (if (< tx2 x2)(setq tx2 x2))

42. (if (< ty2 y2)(setq ty2 y2))

43. )

44. (list (list tx1 ty1) (list tx2 ty2))

45. )

46. )

47. )

追问

如何使用代码，能直接复制文本，做成CAD命令吗？