[求助]：[0306]怎样使选集中的物件座标形成串列?

tctabc · 发表于 2006-3-6 18:03:31

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

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

×

[求助]：[0306]怎样使选集中的物件座标形成串列?

请问我想使用"SSGET"形成的选集,
将其中的座标取出,
并形成串列值.
如: ((x1 y1) (x2 y2) (x3 y3) (x4 y4))
烦请各位高手帮忙解答,谢谢~

ljpnb · 发表于 2006-3-6 21:52:01

[php](defun c:test (/ ss lst i obj p1 p2 )
  (if (setq ss (ssget))
(progn
   (setq lst '()
      i 0
   )
   (repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss i)))
(setq p1 (vlax-curve-getStartPoint obj)
      p2 (vlax-curve-getendpoint obj)
)
(setq lst (append (list p1 p2) lst))
(setq i (1+ i))
   )
)
  )
  (princ lst)
  (princ)
)
[/php]

xyz518mm · 发表于 2006-3-6 21:59:12

感谢您的热心解答
另想请问如果使用 LISP 非 VLISP
对象为圆的中心座标
该怎样处理呢?

ljpnb · 发表于 2006-3-6 22:08:26

最初由 xyz518mm 发布
[B]感谢您的热心解答
另想请问如果使用 LISP 非 VLISP
对象为圆的中心座标
该怎样处理呢? [/B]

[php]
(defun c:test (/ ss lst i ent p0 )
  (if (setq ss (ssget '((0 . "CIRCLE"))))
(progn
   (setq lst '()
      i 0
   )
   (repeat (sslength ss)
(setq ent  (ssname ss i))
(setq p0 (cdr(assoc 10 (entget ent))))
(setq lst (append (list p0) lst))
(setq i (1+ i))
   )
)
  )
  (princ lst)
  (princ)
)
[/php]

Underway · 发表于 2006-3-6 22:11:53

Command: Circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 100,100

Specify radius of circle or [Diameter]: 8

Command: (entget (entlast))
((-1 . <Entity name: 7ef4dee8>) (0 . "CIRCLE") (330 . <Entity name: 7ef4dcb8>)
(5 . "95") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbCircle") (10 100.0 100.0 0.0) (40 . 8.0) (210 0.0 0.0 1.0))

===============================
(10 100.0 100.0 0.0) ; 这个是圆心 ==> 100,100

xyz518mm · 发表于 2006-3-6 22:35:44

感谢各位高手的热心解答
又学到了不少东西
谢谢了

另外选集内容是带有属性的图块
要求的是属性标签的座标值
不知道这样可以求出来吗?

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

[求助] [求助]：[0306]怎样使选集中的物件座标形成串列?

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

相关帖子