[LISP程序]：高手请进!!!!!

lyc3029 · 发表于 2005-8-31 19:19:23

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

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

×

(princ "\npee,用于合并线条!")
(defun C:pee(/ a n)
(princ "\n请选择你要合并的线条!")
(setq a (ssget))
(setq n (sslength a))
(command "pedit" a "y" "j" "all" "" "")
(princ "\n有")(princ n)(princ "个线条被合并!")
(princ)
)

为什么用于合并多义线,会出错!

还要请教两个问题,
怎么返回一个实体的面积,
怎么返回两条多义线的交点!
感谢!

返回面积,我的找到了
怎样返回两条多义线的交点!
高手们在哪里,拉我一把啊!

jidushan2005 · 发表于 2005-9-5 21:53:33

检查个线段是否首尾相连

lyc3029 · 发表于 2005-9-9 13:09:27

LISP开发技术版有回贴,大家可以去看一下

它山之石 · 发表于 2005-9-9 13:30:36

俺不是高手，不小心走错了。抱歉！！
http://www.xdcad.net/forum/showt ... y=&pagenumber=1

lyc3029 · 发表于 2005-9-10 12:41:20

其实大家初忠是好的,叫比自己在某方面更深度人为高手是为了表示尊敬,是对你们为此努力一种肯定,如果高手们都觉得是对一些所谓的"弱弱问题"都不屑,那他可能是高手,但我不是口中所称的高手。每个人都是由浅入深,我对楼上链接的发贴人表示BS！抱嫌！
LISP我刚入门，但我会学好，同样我也愿意帮助那些需要帮助的人，如果这样都有错的话，那干脆取消求助这个主题算了！

(princ "\npee,用于合并线条!")
(defun C:pee(/ a n s1 s2 i x m b va nu)
(princ "\n请选择你要合并的线条!")
(setq a (ssget))
(setq n (sslength a))
(setq i 0)(setq nu 0)
(setq x (ssname a 0))
(setq m (entget x))(setq b (assoc 0 m))
(setq va (cdr b))
(if (= "LWPOLYLINE" va ) (setq nu (+ nu 1)))
(setvar "cmdecho" 0)
(if (= nu 1) (command "pedit" a "j" "all" "" "") (command "pedit" a "y" "j" "all" "" ""))
(princ "\n有")(princ n)(princ "个线条被合并!")
(princ)
)

cxj0810 · 发表于 2005-9-14 20:05:24

大学学过，现在用，不过什么都忘了！

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

[LISP程序]：高手请进!!!!!

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

相关帖子