晓东工具箱和开源函数问题。。。大事件求围观

ＸＸ · 发表于 2017-9-24 19:48:07

在论坛看到说更新后可以多线到面造区了，但不知道命令是什么，请知道的前辈给小弟说说，先在这感谢了》》》

ＸＸ · 发表于 2017-9-24 19:56:36

不要沉不要沉不要沉不要沉不要沉不要沉不要沉

longer1000 · 发表于 2017-9-25 00:03:36

哦哦噢噢噢哦哦

XDSoft · 发表于 2017-9-25 07:44:30

你说的是哪个插件，请把帖子链接贴上。

ＸＸ · 发表于 2017-9-25 09:06:44

XDSoft 发表于 2017-9-25 07:44

(defun c:t13 ()
登录/注册后可看大图
(setq cmd (getvar 'cmdecho))
登录/注册后可看大图
(setvar 'cmdecho 0)
登录/注册后可看大图
(princ "\n选择直线、多段线、圆弧、圆:")
登录/注册后可看大图
(setq ss (ssget '((0 . "line,*polyline,circle,arc"))))
登录/注册后可看大图
(if ss
登录/注册后可看大图
(progn
登录/注册后可看大图
;;曲线交点打断
登录/注册后可看大图
(setq ss (XDRX_CURVE_INTERSECTBREAK ss 0))
登录/注册后可看大图
;;生成面域
登录/注册后可看大图
(setq ss (XDRX_CURVE->REGION ss) lst nil)
登录/注册后可看大图
(repeat (setq n (sslength ss))
登录/注册后可看大图
(setq lst (cons (ssname ss (setq n (1- n))) lst))
登录/注册后可看大图
)
登录/注册后可看大图
;;面域按面积从大到小排序
登录/注册后可看大图
(setq
登录/注册后可看大图
lst (vl-sort
登录/注册后可看大图
lst
登录/注册后可看大图
'(lambda (a b)
登录/注册后可看大图
(> (XDRX_REGION_GETAREA a) (XDRX_REGION_GETAREA b))
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
;;删除最外围的面域
登录/注册后可看大图
(entdel (car lst))
登录/注册后可看大图
(setq lst (cdr lst))
登录/注册后可看大图
;;将面域转成多段线
登录/注册后可看大图
(setq ss (xdrx_region->curve lst))
登录/注册后可看大图
(setvar 'cmdecho cmd)
登录/注册后可看大图
;;返回多段线选择集
登录/注册后可看大图
ss
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
)
要帮我看看这个，这个转换后，没有删除最大边界，我要删除最大边界

ＸＸ · 发表于 2017-9-25 09:11:25

XDSoft 发表于 2017-9-25 07:44

晓东工具箱有这个功能，比这个代码好用，但是我忘记了命令了

ＸＸ · 发表于 2017-9-26 10:38:33

没人知道吗

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

[求助] 晓东工具箱和开源函数问题。。。大事件求围观