批量extrim，有个思路，想请大大帮忙~
本帖最后由 开1心 于 2013-7-11 10:40 编辑;;;;批量extrim
网上找到一个标形心的代码，请问高手们能不能按以下代码，做一个批量extrim，能指定PL线所在图层做为剪切边，并自动选择各图形的形心，extrim后，消去形心~~
以下为代码：
;;;;;;;;;;;
(defun c:xxxxx1 (/ ss s_x p) ;找形心
(COMMAND "LAYER" "M" "pt" "C" "4" "pt" "LT" "continuous" "pt" "")
(setq ss (ssget))
(setq i 0)
(setq len (sslength ss))
(repeat len
(progn
(setq s_x (ssname ss i))
(command "_.region" s_x "")
(setq p (vlax-get (vlax-ename->vla-object (entlast)) "centroid"))
(entmake
(list (cons 0 "point") (cons 8 "pt") (cons 10 p))
)
(setq i (+ i 1))
)
)
(princ)
)
本帖最后由 开1心 于 2013-7-11 10:36 编辑
找形心的那段代码有个小问题，找到形心后，PL线如何保持在当前所在层~ 几何形心不一定会落在图形的内部吧，比如凹形图，圆环 h008 发表于 2013-7-11 16:05 static/image/common/back.gif
几何形心不一定会落在图形的内部吧，比如凹形图，圆环
对的，不一定在图内~我有在图内的代码了。但不会写批量修剪~
页:
[1]