SPLINE 转 CIRCLE

lucas3 · 发表于 2014-4-17 09:01:41

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

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

×

本帖最后由 lucas3 于 2014-4-18 18:18 编辑

附件为DWG样例，请问如将外形像圆的SPLINE转成直正的圆CIRCLE ？圆的位置同大小不能发生变化

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test.rar
下载次数:15 文件大小:22.35 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test2.rar
下载次数:2 文件大小:18.24 KB
下载权限: 不限以上 [免费赚D豆]

我想是不是要获取对象的中心，然后得到中心到控制点的长度，然后以此长度为半径，重画圆，……。…。…。…。……

newer · 发表于 2014-4-17 09:28:50

外表像园实际也不是园，都需要你算出模拟的半径和圆心来。

lucas3 · 发表于 2014-4-17 09:30:31

newer 发表于 2014-4-17 09:28
外表像园实际也不是园，都需要你算出模拟的半径和圆心来。

是这样的版主，有没有见过这样的代码？

newer · 发表于 2014-4-17 09:37:13

lucas3 发表于 2014-4-17 09:30
是这样的版主，有没有见过这样的代码？

为什么一定要转成CIRCLE，转成折线模拟或者圆弧模拟不能满足你的需要吗？

lucas3 · 发表于 2014-4-17 09:45:53

newer 发表于 2014-4-17 09:37
为什么一定要转成CIRCLE，转成折线模拟或者圆弧模拟不能满足你的需要吗？

要能标注直径或半径才行

lucas3 · 发表于 2014-4-17 10:12:49

newer 发表于 2014-4-17 09:37
为什么一定要转成CIRCLE，转成折线模拟或者圆弧模拟不能满足你的需要吗？

我想是不是要获取对象的中心，然后得到中心到控制点的长度，然后以此长度为半径，重画圆

newer · 发表于 2014-4-17 10:22:41

lucas3 发表于 2014-4-17 10:12
我想是不是要获取对象的中心，然后得到中心到控制点的长度，然后以此长度为半径，重画圆

要这样做，那么你首先要假定这个一定可以变成圆。

那么，按你说的找到中心，然后中心到SPLINE的距离为半径。

xtdwynij · 发表于 2014-4-17 11:36:55

貌似不是多段线，而是类似于椭圆的图型（是叫非图形对象么）？里面有个中点有端点，可不可以用捕捉得到二个点。然后取得他的长度。（他的长度不就是圆的直径了？）

zwwen12 · 发表于 2014-4-17 12:46:42

我的方法是取得形心，取得面积。计算出半径，再画圆。

lucas3 · 发表于 2014-4-17 12:50:53

zwwen12 发表于 2014-4-17 12:46
我的方法是取得形心，取得面积。计算出半径，再画圆。

能不能写个出来？{:soso_e178:}

st788796 · 发表于 2014-4-17 17:22:57

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "spline"))))
(progn
(setq lst (mapcar '(lambda (x)
(setq pts (xdrx_getsamplept x)
p (apply 'xdrx_points_centroid pts)
d (mapcar '(lambda (a) (distance a p)) pts)
)
(list p (/ (apply '+ d) (length pts)) x)
)
(xdrx_pickset->ents ss)
)
)
(mapcar '(lambda (x)
(xdrx_circle_make (car x) (cadr x))
)
lst
)
(xdrx_entity_delete ss)
)
)
(princ)
)

Love-Lisp · 发表于 2014-4-17 19:52:47

(defun c:tt ()
(if (setq ss (ssget))
(progn
(repeat (setq n (sslength ss))
(vla-GetBoundingBox
(setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
'll
'ur
)
(setq ll (vlax-safearray->list ll)
ur (vlax-safearray->list ur)
)
(setq wh (mapcar '- ur ll))
(if (equal (car wh) (cadr wh) 1e-3) ;_ 宽高相等,画圆
(progn
(entmake
(list
(cons 0 "circle")
(cons 10 (mapcar '* '(0.5 0.5 0.5) (mapcar '+ ll ur)))
(cons 40 (* 0.25 (+ (car wh) (cadr wh))))
(cons 62 2)
)
)
(vla-delete obj)
)
)
)
)
)
)

zwwen12 · 发表于 2014-4-17 20:06:06

lucas3 发表于 2014-4-17 12:50
能不能写个出来？

(defun ax:Centroid (poly / pl ms va reg cen)
  (setq pl (vlax-ename->vla-object poly)
ms (vla-get-modelspace (vla-get-activedocument
         (vlax-get-acad-object)
      )
)
va (vlax-make-safearray vlax-vbObject '(0 . 0))
  )
  (vlax-safearray-put-element va 0 pl)
  (setq reg (car (vlax-safearray->list (vlax-variant-value
      (vla-addregion ms va)
         )
)
   )
cen (vla-get-centroid reg)
  )
  (vla-delete reg)
  (vlax-safearray->list (vlax-variant-value cen))
)
;;;
(defun getarea (ename)
  (setq obj (vlax-ename->vla-object ename))
  (vla-get-area obj)
)
;;;
(defun c:p2c ()
  (setq SS (ssget))
  (setq N 0)
  (repeat (+ 1 (sslength SS))
(setq en (ssname ss n))
(setq n (+ 1 n))
(setq pc (ax:centroid en))
(setq as (getarea en))
(setq rr (sqrt (/ as 3.1415926)))
(setq os (getvar "osmode"))
(setvar "osmode" 4)
(command ".circle" pc rr)
(setvar "osmode" os)
  )
  (princ)
)

lucas3 · 发表于 2014-4-17 20:48:36

Love-Lisp 发表于 2014-4-17 19:52

非常感谢！这个对于SPLINE是否有控制点个数的要求？为什么有的可以，有的不可以？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test2.rar
下载次数:3 文件大小:19.72 KB
下载权限: 不限以上 [免费赚D豆]

lucas3 · 发表于 2014-4-17 20:50:21

本帖最后由 lucas3 于 2014-4-17 20:56 编辑

zwwen12 发表于 2014-4-17 20:06
(defun ax:Centroid (poly / pl ms va reg cen)
(setq pl (vlax-ename->vla-object poly)
ms (vla-g ...

非常感谢，试用过，两个图形都可以，能否修改下将原SPLINE删除掉？另外结束后命令栏显示：Command: ; error: bad argument type: lentityp nil 这个怎么回事呢？

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

[求助] SPLINE 转 CIRCLE

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

点评

点评

点评

点评

点评

点评

点评

点评

点评