封闭区域批量提取点坐标

544551616 · 发表于 2019-6-27 22:19:04

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

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

×

选中一个封闭区域，然后输入距离，批量生成点，不需要出现点号。并能提取出XY坐标。有想法吗？

544551616 · 发表于 2019-6-28 11:59:46

求助各位大神。

yinchuan99001 · 发表于 2019-6-28 13:32:33

本帖最后由 yinchuan99001 于 2019-6-28 13:34 编辑

请问是不是如图的方式，点不出现在图面上，但要得到点坐标。

544551616 · 发表于 2019-6-28 14:33:39

yinchuan99001 发表于 2019-6-28 13:32
请问是不是如图的方式，点不出现在图面上，但要得到点坐标。

大概意思是吧，但是没有这么规则。封闭区域是随意形状的。LSP能实现吗？

544551616 · 发表于 2019-6-29 10:39:33

yinchuan99001 发表于 2019-6-28 13:32
请问是不是如图的方式，点不出现在图面上，但要得到点坐标。

你的是由Lsp 实现的吗？

yinchuan99001 · 发表于 2019-7-1 16:53:07

应该能实现，重要的没有搞懂您的意思。能否上图。

544551616 · 发表于 2019-7-1 21:18:56

本帖最后由 544551616 于 2019-7-1 21:22 编辑

yinchuan99001 发表于 2019-7-1 16:53
应该能实现，重要的没有搞懂您的意思。能否上图。

登录/注册后可看大图

544551616 · 发表于 2019-7-5 10:25:03

求助。别沉。

yinchuan99001 · 发表于 2019-7-6 14:13:13

本帖最后由 yinchuan99001 于 2019-7-6 14:49 编辑

这这比较难，做了一个方框的，看看对你有没有帮助。还得学习，请见谅。(defun C:tttt()
  (setvar "cmdecho" 0)
  (setq OLDOS (getvar "osmode"))
  (setq ss (ssget))
  (setq n 0)
  (repeat (sslength ss)
(setq en (ssname ss n))
(IF       (SETQ S1 en)
   (PROGN
      (vla-getboundingbox
      (vlax-ename->vla-object S1)
      'minpoint
      'maxpoint
      )
      (setq pmax (vlax-safearray->list maxpoint)
            pmin (vlax-safearray->list minpoint)
      )
      (SETVAR "OSMODE" OLDOS)
   )
)
(setq n (1+ n))
  )
(setq Dx (distance  pmax (list (car pmin) (cadr pmax))))
(setq Dy (distance  pmin (list (car pmin) (cadr pmax))))
(setq N-X (fix (/ dx 10)))
(setq N-Y (fix (/ dy 10)))
(setq p0 (list (+(car pmin) 10)(+(caDr pmin) 10)))
(setq nx (1-  N-Y ))
(setq ny (1-  N-X ))
(command "point" p0)
(command "-array" (entlast) "" "R" nx ny "10" "10" "")
  (princ)
)

544551616 · 发表于 2019-7-7 11:58:39

yinchuan99001 发表于 2019-7-6 14:13
这这比较难，做了一个方框的，看看对你有没有帮助。还得学习，请见谅。(defun C:tttt()
(setvar "cmdech ...

非常感谢你啊。我会试着学习学习。

544551616 · 发表于 2019-7-8 13:01:52

大家还有更好的吗？求助大佬。

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

[每日一码] 封闭区域批量提取点坐标

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