提取REGION内部原生曲线

newer · 发表于 2025-2-6 17:00:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2025-2-6 17:02 编辑

(defun c:tt ()
(xdrx-begin)
(if (and (setq e (xdrx-entsel
(xdrx-string-multilanguage
"\n拾取要提取的路径<退出>:"
"\nPick path to extract <exit>:"
) '((0 . "region,mpolygon"))
)
)
(setq pt (cadr e)
e (car e)
)
(setq
loop (xdrx-getpropertyvalue e "closestloopto" pt)
)
(setq
yesorno (xdrx-yesorno
(xdrx-string-multilanguage
"\n是否包括内部路径"
"\nDo you want to include internal paths"
)
1
)
)
)
(progn
(setq loops (xdrx-getpropertyvalue e "childloops" loop)
loops (cond
((= yesorno 1)
(cons loop loops)
)
(t
(list loop)
)
)
)
(if (setq loops
(mapcar
'(lambda (x) (xdrx-getpropertyvalue e "getloopat" x))
loops
)
)
(xd::drag:freemove
(setq ss (xdrx-entity-make loops))
(xdrx-getpropertyvalue (xdrx-entity-box ss) "9pt" 5)
(+ 1 4 128)
0
t
)
)
(princ)
)
)
(xdrx-end)
(princ)
)

(defun c:tt () 
  (xdrx-begin) 
  (if (and (setq e (xdrx-entsel 
                     (xdrx-string-multilanguage 
                       "\n拾取要提取的路径<退出>:" 
                       "\nPick path to extract <exit>:" 
                     ) '((0 . "region,mpolygon")) 
                   ) 
           ) 
           (setq pt (cadr e) 
                 e  (car e) 
           ) 
           (setq 
             loop (xdrx-getpropertyvalue e "closestloopto" pt) 
           ) 
           (setq 
             yesorno (xdrx-yesorno 
                       (xdrx-string-multilanguage 
                         "\n是否包括内部路径" 
                         "\nDo you want to include internal paths" 
                       ) 
                       1 
                     ) 
           ) 
      ) 
    (progn 
      (setq loops (xdrx-getpropertyvalue e "childloops" loop) 
            loops (cond 
                    ((= yesorno 1) 
                     (cons loop loops) 
                    ) 
                    (t 
                     (list loop) 
                    ) 
                  ) 
      ) 
      (if (setq        loops 
                 (mapcar 
                   '(lambda (x) (xdrx-getpropertyvalue e "getloopat" x)) 
                   loops 
                 ) 
          ) 
        (xd::drag:freemove 
          (setq ss (xdrx-entity-make loops)) 
          (xdrx-getpropertyvalue (xdrx-entity-box ss) "9pt" 5) 
          (+ 1 4 128) 
          0 
          t 
        ) 
      ) 
      (princ) 
    ) 
  ) 
  (xdrx-end) 
  (princ) 
)

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

[每日一码] 提取REGION内部原生曲线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块