批量extrim，有个思路，想请大大帮忙~

开1心 · 发表于 2013-7-11 10:33

本帖最后由开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:35

本帖最后由开1心于 2013-7-11 10:36 编辑

找形心的那段代码有个小问题，找到形心后，PL线如何保持在当前所在层~

h008 · 发表于 2013-7-11 16:05

几何形心不一定会落在图形的内部吧，比如凹形图，圆环

开1心 · 发表于 2013-7-12 00:07

h008 发表于 2013-7-11 16:05
几何形心不一定会落在图形的内部吧，比如凹形图，圆环

对的，不一定在图内~我有在图内的代码了。但不会写批量修剪~

账号		自动登录	找回密码
密码			注册

[提问] 批量extrim，有个思路，想请大大帮忙~