怎么利用lisp裁剪得到结果

麥芒HFD · 发表于 2019-1-14 17:49:29

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

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

×

请问像这种怎么利用lisp实现？框选前面图的1得到后面图片的1，依次类推

newer · 发表于 2019-1-14 19:21:56

本帖最后由 newer 于 2019-1-14 21:22 编辑

生成房间.gif

(defun c:tt ()
(if (not #xd_var_global_tol)
(setq #xd_var_global_tol 1.0)
)
(if (setq var (getreal
(xdrx_prompt "\n输入容差<" #xd_var_global_tol ">:" t)
)
)
(setq #xd_var_global_tol var)
)
(and (xdrx_initssget "\n选择曲线<退出>:")
(setq ss (xdrx_ssget '((0 . "line,*polyline"))))
(xdrx_geom_searchoutline ss)
(setq out (entlast)
pts (xdrx_getpropertyvalue out "vertices")
pts1 (xdrx_points_offset -1.0 pts)
)
(xdrx_entity_copy out)
(setq ss1 (ssget "cp" pts1 '((0 . "line,*polyline"))))
(ssadd (entlast) ss1)
(setq ss2 (xdrx_curve_intersectbreak ss1))
(mapcar '(lambda (x)
(if (< (xdrx_getpropertyvalue x "length") #xd_var_global_tol)
(xdrx_entity_delete x) t
)
)
(xdrx_pickset->ents ss2)
)
(xdrx_entity_delete (ssget "f" pts '((0 . "line,*polyline"))))
(xdrx_geom_searchregions (cons out (xdrx_pickset->ents ss2)))
)
(princ)
)

(defun c:tt () 
  (if (not #xd_var_global_tol) 
    (setq #xd_var_global_tol 1.0) 
  ) 
  (if (setq var (getreal 
                  (xdrx_prompt "\n输入容差<" #xd_var_global_tol ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_tol var) 
  ) 
  (and (xdrx_initssget "\n选择曲线<退出>:") 
       (setq ss (xdrx_ssget '((0 . "line,*polyline")))) 
       (xdrx_geom_searchoutline ss) 
       (setq out  (entlast) 
             pts  (xdrx_getpropertyvalue out "vertices") 
             pts1 (xdrx_points_offset -1.0 pts) 
       ) 
       (xdrx_entity_copy out) 
       (setq ss1 (ssget "cp" pts1 '((0 . "line,*polyline")))) 
       (ssadd (entlast) ss1) 
       (setq ss2 (xdrx_curve_intersectbreak ss1)) 
       (mapcar '(lambda (x) 
                  (if (< (xdrx_getpropertyvalue x "length") #xd_var_global_tol) 
                    (xdrx_entity_delete x)                    t 
                  ) 
                ) 
               (xdrx_pickset->ents ss2) 
       ) 
       (xdrx_entity_delete (ssget "f" pts '((0 . "line,*polyline")))) 
       (xdrx_geom_searchregions (cons out (xdrx_pickset->ents ss2))) 
  ) 
  (princ) 
)

麥芒HFD · 发表于 2019-1-14 22:17:03

newer 发表于 2019-1-14 19:21

嗯，挺不错的，但是这个要加载什么的吧？不能单独使用吧？

Lisphk · 发表于 2019-1-14 22:30:37

麥芒HFD 发表于 2019-1-14 22:17
嗯，挺不错的，但是这个要加载什么的吧？不能单独使用吧？

安装 XDRX API 或者晓东工具箱

麥芒HFD · 发表于 2019-1-14 23:07:57

Lisphk 发表于 2019-1-14 22:30
安装 XDRX API 或者晓东工具箱

哦哦，知道了，请问怎么样可以单独使用啊？

LoveArx · 发表于 2019-1-14 23:14:16

麥芒HFD 发表于 2019-1-14 23:07
哦哦，知道了，请问怎么样可以单独使用啊？

LISP代码和API库是一体的，他们在一起就是单独。

yangjian001 · 发表于 2019-1-15 08:46:31

做一个热心并受欢迎的人

麥芒HFD · 发表于 2019-1-15 09:22:09

LoveArx 发表于 2019-1-14 23:14
LISP代码和API库是一体的，他们在一起就是单独。

哦哦，好的，知道了，谢谢解答

麥芒HFD · 发表于 2019-1-15 09:23:26

yangjian001 发表于 2019-1-15 08:46
做一个热心并受欢迎的人

{:1_1:

xdzcp · 发表于 2019-1-24 20:56:28

这个不错

xdzcp · 发表于 2019-1-25 08:40:51

本帖最后由 xdzcp 于 2019-1-25 08:47 编辑

这个怎么用呢工具箱没有这个功能吧，老大能不能把这个功能放到工具箱里。

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

[求助] 怎么利用lisp裁剪得到结果

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

回帖奖励 +1 D豆

点评

点评

点评

点评

点评