[求助]：[0211]如何依据选取的图元图层,作为修剪的依据呢?

vken7az2p

[0211]如何依据选取的图元图层,作为修剪的依据呢?

如何依据选取的图元图层,
作为修剪的依据呢?
烦请各位高手帮忙解答一下,谢谢~

ljpnb

还不太明白你的意思。你想作为修剪什么样的依据，比如修剪的边界呢还是修剪的对象。

vken7az2p

不好意思没有说清楚.
目前虽然找到 Command:extrim 可以完成,
但是无法选取多数修剪.
且我还要保留相同图层的物件,
附张图说明一下.
烦请各位高手可以解答一下
谢谢~

lazybug

剪切程序执行前锁定该图层

执行之后解锁

vken7az2p

小弟看到另一个程序
但是好像需要修改
烦请帮忙解决一下
谢谢

2. (defun c:tra5 ()
3.   (vl-load-com)
4.   (setq oldosm (getvar "osmode"))
5.   (setq oldpic (getvar "pickbox"))
6.   (setq oldcmd (getvar "cmdecho"))
7.   (setvar "osmode" 0)
8.   (setvar "pickbox" 1)
9. (setvar "cmdecho" 0)
10. (setq flt '((-4 . "<AND")
11.             (0 . "LWPOLYLINE")
12.             (8 . "trimall")
13.             (90 . 4)
14.             (-4 . "AND>")
15. ));setq
16.   (princ "\nSelect all object to trim: ")
17.   (if (setq ss (ssget flt))
18.     (progn
19.       (command "layer" "lock" "trimall" "")
20.       (setq n 0)
21.       (repeat (sslength ss)
22. (setq ename (ssname ss n))
23. (setq vlaob (vlax-ename->vla-object ename))
24. (setq vlalist (vlax-get-property vlaob 'Coordinates))
25. (setq vlalist (vlax-variant-value vlalist))
26. (setq vlalist (vlax-safearray->list vlalist))
27. (setq p1 (list (nth 0 vlalist) (nth 1 vlalist)))
28. (setq p2 (list (nth 2 vlalist) (nth 3 vlalist)))
29. (setq p3 (list (nth 4 vlalist) (nth 5 vlalist)))
30. (setq p4 (list (nth 6 vlalist) (nth 7 vlalist)))
31. (setq p13 (polar p1 (angle p1 p3) 0.1))
32. (setq p31 (polar p3 (angle p3 p1) 0.1))
33. (setq p24 (polar p2 (angle p2 p4) 0.1))
34. (setq p42 (polar p4 (angle p4 p2) 0.1))
35. (command "trim" ename "" "f" p13 p24 p31 p42 "" "")
36. (setq n (1+ n))
37. );repeat
38.       (command "layer" "unlock" "trimall" "")
39.       (setvar "osmode" oldosm)
40.       (setvar "pickbox" oldpic)
41.       (setvar "cmdecho" oldcmd)
42. ) ;_ 结束progn
43. ) ;_ 结束if
44. (princ));defun

(defun c:tra5 ()   (vl-load-com)   (setq oldosm (getvar "osmode"))   (setq oldpic (getvar "pickbox"))   (setq oldcmd (getvar "cmdecho"))   (setvar "osmode" 0)   (setvar "pickbox" 1) (setvar "cmdecho" 0) (setq flt '((-4 . "<AND")             (0 . "LWPOLYLINE")             (8 . "trimall")             (90 . 4)             (-4 . "AND>") ));setq   (princ "\nSelect all object to trim: ")   (if (setq ss (ssget flt))     (progn       (command "layer" "lock" "trimall" "")       (setq n 0)       (repeat (sslength ss) (setq ename (ssname ss n)) (setq vlaob (vlax-ename->vla-object ename)) (setq vlalist (vlax-get-property vlaob 'Coordinates)) (setq vlalist (vlax-variant-value vlalist)) (setq vlalist (vlax-safearray->list vlalist)) (setq p1 (list (nth 0 vlalist) (nth 1 vlalist))) (setq p2 (list (nth 2 vlalist) (nth 3 vlalist))) (setq p3 (list (nth 4 vlalist) (nth 5 vlalist))) (setq p4 (list (nth 6 vlalist) (nth 7 vlalist))) (setq p13 (polar p1 (angle p1 p3) 0.1)) (setq p31 (polar p3 (angle p3 p1) 0.1)) (setq p24 (polar p2 (angle p2 p4) 0.1)) (setq p42 (polar p4 (angle p4 p2) 0.1)) (command "trim" ename "" "f" p13 p24 p31 p42 "" "") (setq n (1+ n)) );repeat       (command "layer" "unlock" "trimall" "")       (setvar "osmode" oldosm)       (setvar "pickbox" oldpic)       (setvar "cmdecho" oldcmd) ) ;_ 结束progn ) ;_ 结束if (princ));defun

lazybug

我运行了一下5楼的程序，挺好用的阿。

不知道楼主要修改成什么样的？

是不是楼主用这个程序“trim”的对象包括多义线、样条曲线、圆弧之类的图元啊，如果是那样的话，出问题是“trim”命令本身的问题不是这个程序的问题。

vken7az2p

谢谢您的解答

我在好好想一下好了~

vken7az2p

 我想我要的是可以在设定我要修剪的参考基准图层,我试著加入以下的程序

但出现 [损坏的 SSGET 列示值]

是否该改成其他方式来将选择集

给带入后续的程序中呢?

烦请帮忙解决一下

谢谢 

(setq en:sel (car (entsel "\n 选取修剪参考基准图层:")))
(setq en:data:0 (cdr (assoc 0 (entget en:sel))))
(setq en:data:8 (cdr (assoc 8 (entget en:sel))))
(setq en:data:90 (cdr (assoc 90 (entget en:sel))))

(setq flt '((-4 . "<AND")(0 . en:data:0)(8 . en:data:8)(90 . en:data:90)
;;(0 . "LWPOLYLINE") ;;图元名称,原式
;;(8 . "trimall") ;;图层名称,原式
;;(90 . 4) ;;顶点数,原式
(-4 . "AND>")
));setq

(setq ss (ssget flt))
(command "layer" "lock" en:data:8 "")

ljpnb

我修改了一下，另外说一点，你这句写得不对

(setq flt '((-4 . "<AND")(0 . en:data:0)(8 . en:data:8)(90 . en:data:90)
;;(0 . "LWPOLYLINE") ;;图元名称,原式
;;(8 . "trimall") ;;图层名称,原式
;;(90 . 4) ;;顶点数,原式
(-4 . "AND>")
));

应该写成

(setq flt (list '(-4 . "<AND") (cons 0 en:data:0) (cons 8 en:data:8) (cons 90 en:data:90) '(-4 . "AND>")))

vken7az2p

谢谢您的修正

但如果要再加上,物件的图元或是顶点数目

是否也是可行呢

(setq en:sel (entget (car (entsel "\n 选取修剪参考基准图层:"))))
  (setq en:data:8 (assoc 8 en:sel))
 (setq en:data:90 (assoc 90 en:sel))

(setq    flt (list '(-4 . "<AND")
(cons 0 "LWPOLYLINE")
en:data:8

en:data:90
;;(CONS 90 4)
'(-4 . "AND>")
))