[求助]：如何编写一个提取当前图中所有直线对象端点的程序？？

xdto · 发表于 2005-9-30 13:57:58

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

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

×

如何编写一个提取当前图中所有直线对象端点的程序？？

qjcpj · 发表于 2005-9-30 14:14:52

使用ssget构造选集，之后取子实体dxf码中的10和11子类。

xdto · 发表于 2005-9-30 14:35:04

最初由 qjcpj 发布
[B]使用ssget构造选集，之后取子实体dxf码中的10和11子类。 [/B]

但是我想提取全部直线的端点啊??

xyp1964 · 发表于 2005-9-30 18:05:16

[FONT=courier new](defun c:test ()
(setq ss (ssget '((0 . "LINE")))
i -1
ptlst '()
)
(repeat (sslength ss)
(setq s1 (ssname ss (setq i (1+ i)))
pt (cdr (assoc 10 (entget s1)))
ptlst (cons pt ptlst)
)
)
ptlst
)[/FONT]

xdto · 发表于 2005-9-30 22:46:18

谢谢xyp1964,
我用上述程序在一个测试中获得以下返回值：

((591.691 689.934 0.0) (839.718 899.96 0.0) (850.227 274.083 0.0) (991.056 876.857 0.0) (1251.69 456.806 0.0))

但随后对其赋值却出错，大家帮我看看哪里错了,
表达式如下：
(setq ptn ((591.691 689.934 0.0) (839.718 [/COLOR] 899.96 0.0) (850.227 274.083 0.0) (991.056 876.857 0.0) (1251.69 456.806 0.0)))

出错提示是这样的:
; 错误: 函数错误: 839.718 [/COLOR]

哪位兄弟帮帮小弟！

xyp1964 · 发表于 2005-10-1 00:03:12

[php](setq ptn '((591.691 689.934 0.0) (839.718 899.96 0.0) (850.227 274.083 0.0) (991.056 876.857 0.0) (1251.69 456.806 0.0)))[/php]

xdto · 发表于 2005-10-1 00:22:04

老大，再帮我解决这个:

执行
(setq da ((-1 . <图元名: 7ef50ee8>) (0 . "CIRCLE") (330 . <图元名: 7ef50cf8>) (5 . "95") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 1501.15 408.371 0.0) (40 . 96.2923) (210 0.0 0.0 1.0)))

出现这样的提示：

; 错误: 输入的点对中含有多余的 cdrs

qjcpj · 发表于 2005-10-1 00:30:21

最初由 xdto 发布
[B]老大，再帮我解决这个:
... [/B]

自己多试一下嘛，不要一有点问题就...
这样对编程水平的提高非常不利，人家给你解答，有点小问题也很正常。

yshf · 发表于 2005-10-1 15:42:00

(setq da ' (0 . "CIRCLE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 1501.15 408.371 0.0) (40 . 96.2923) (210 0.0 0.0 1.0)))

xxming · 发表于 2005-10-17 21:16:45

六楼xyp1964 斑竹你漏了直线dxf 11代码修改如下：

(defun c:test()
  (setq ss (ssget '((0 . "LINE")))
i -1
ptlist '()
  )
  (repeat (sslength ss)
   (setq s1 (ssname ss (setq i (1+ i)))
   sslist (entget s1)
   pt1 (cdr(assoc 10 sslist))
   pt2 (cdr(assoc 11 sslist))
   pt (list pt1 pt2)
   ptlist (cons pt ptlist )
   )
)
  ptlist
)

eachy · 发表于 2005-10-17 22:05:32

这样效率更高

(defun c:test (/ ss ssl i pl e)
(if (setq ss (ssget "x" '((0 . "line"))))
(progn
(setq ssl (sslength ss)
i 0
)
(repeat ssl
(setq e (ssname ss i)
i (1+ i)
)
(setq pl (cons (vlax-curve-getstartpoint e) pl)
pl (cons (vlax-curve-getendpoint e) pl)
)
)
)
)
(princ)
)

xyp1964 · 发表于 2005-10-17 22:35:06

再简化点：

[FONT=courier new](defun c:test (/ ss i e pl)
(if (setq ss (ssget "x" '((0 . "LINE"))))
(progn
(setq i -1)
(repeat (sslength ss)
(setq e (ssname ss (setq i (1+ i)))
pl (cons (vlax-curve-getstartpoint e) pl)
pl (cons (vlax-curve-getendpoint e) pl)
))
pl
)))[/FONT]

狂刀 · 发表于 2005-10-17 22:53:54

(defun c:tt ()
(ssget '((0 . "LINE")))
(vlax-map-collection (vla-get-activeselectionset(vla-get-activedocument(vlax-get-acad-object)))
'(lambda(x)(setq lst(cons(list (vlax-curve-getstartpoint x)(vlax-curve-getstartpoint x))lst)))
)lst
)

eachy · 发表于 2005-10-17 22:59:30

这里 vlax-map-collection 绝对没有 ssname 效率高

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

[求助] [求助]：如何编写一个提取当前图中所有直线对象端点的程序？？

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

相关帖子