[求助]：圆变多边形

舞步 · 发表于 2003-11-30 09:27:59

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

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

×

那位有圆变多边形的lsp程序？谢谢！

lsjjm · 发表于 2003-11-30 13:15:50

不明白你的意思, 内接? 外切? 多少边?

ahlzl · 发表于 2003-11-30 16:35:54

我写了一个.

(defun c:cp (/ en n)
(setvar "cmdecho" 0)
(setq en (entsel "请选择一个圆"))
(setq en_data (entget (car en)))
(setq cen (cdr (assoc 10 en_data)))
(setq r (cdr (assoc 40 en_data)))
(setq n (getint "\n请输入正多边形的边数:"))
(initget "I C")
(setq a (getkword "\n 请输入正多边形选项[内接于圆(I)/外切于圆(C)]<C>:"))
(if (= a "I")
(progn
(command "polygon" n cen "i" r)
)
(progn
(command "polygon" n cen "c" r)
)
)
(command "ERASE" en "")
(princ)
)

论坛的代码显示有点问题,请下载LSP文件查看代码.

舞步 · 发表于 2003-11-30 21:29:15

感谢斑竹的帮助！

陌生人 · 发表于 2003-12-1 03:57:45

我也贴一个:)

;|圆变多边形的lsp程序---for xdcad坛
v1.0---------------陌生人.2003.12
|;
(defun c:c2pg ( / ss n k i en cen rad ekey)
(princ "\n圆变多边形的程序-----------------------------陌生人@xdcad .2003.12")
(vl-load-com)
(vl-cmdf ".undo" "be")
(princ "\n请选择圆(可多个):")
(setq ss (ssget '((0 . "circle")))
nside (getvar "POLYSIDES")
n (getint (strcat "\n多边形边数(必须>2)<" (itoa nside) ">:") )
i 0)
(if (= nil n)(setq n nside))
(if (> n 2)
(progn
(initget " I C" )
(setq k (getkword "\n请输入正多边形选项----内接于圆(I)/外切于圆(C) :"))
(if (= nil k)(setq k "I"))
;;
(repeat (sslength ss)
(setq en (ssname ss i)
en (vlax-ename->vla-object en)
cen (vlax-safearray->list (vlax-variant-value (vla-get-center en)))
rad (vla-get-Radius en)
i (+ 1 i)
)
(vl-cmdf "_.polygon" n cen k rad)
)
;;
(initget " Y N")
(setq ekey (getkword "\n删除圆? Yes/No <Y>:"))
(if (/= "N" ekey)
(vl-cmdf ".erase" ss "")
)(setvar "POLYSIDES" n)
)(princ "\n多边形边数必须>2 !!!")) ;end progn; end if
(vl-cmdf ".undo" "e")
(princ)
)

;|圆变多边形的lsp程序---for xdcad坛 
 v1.0---------------陌生人.2003.12 
 |; 
(defun c:c2pg ( / ss n k i en cen rad ekey) 
  (princ "\n圆变多边形的程序-----------------------------陌生人@xdcad .2003.12") 
  (vl-load-com) 
  (vl-cmdf ".undo" "be") 
  (princ "\n请选择圆(可多个):") 
  (setq ss    (ssget '((0 . "circle"))) 
        nside (getvar "POLYSIDES") 
        n     (getint (strcat "\n多边形边数(必须>2)<" (itoa nside) ">:") ) 
        i     0) 
  (if (= nil n)(setq n nside)) 
  (if (> n 2) 
  (progn 
   (initget "  I C" ) 
   (setq k (getkword "\n请输入正多边形选项----内接于圆(I)/外切于圆(C) :")) 
   (if (= nil k)(setq k "I")) 
  ;; 
   (repeat (sslength ss) 
     (setq en   (ssname ss i) 
             en (vlax-ename->vla-object en) 
           cen  (vlax-safearray->list (vlax-variant-value  (vla-get-center en))) 
           rad  (vla-get-Radius en) 
            i    (+ 1 i) 
     ) 
     (vl-cmdf  "_.polygon" n cen k rad) 
   ) 
   ;; 
   (initget "  Y N") 
   (setq ekey (getkword "\n删除圆? Yes/No <Y>:")) 
   (if (/= "N" ekey) 
      (vl-cmdf ".erase" ss "") 
   )(setvar "POLYSIDES" n) 
  )(princ "\n多边形边数必须>2 !!!"))                        ;end progn; end if 
  (vl-cmdf ".undo" "e") 
  (princ) 
)

对vl还用的不是很熟,不好意思
上例 ...cen (vlax-safearray->list (vlax-variant-value (vla-get-center en))) 一句还有更简便的写法么?
该死的 get center 居然返回变体数值,调试的时候困扰了一阵子 :(
另外,程序没有写出错处理,基于这样的考虑:
程序中只有在最后一处有一个setvar 改变系统变量,不存在中途退去更改系统变量的问题.
请多多指教,谢谢.

试试效果:

LUCAS · 发表于 2003-12-3 07:58:31

(setq EN  (ssname SS I)
      EN  (vlax-ename->vla-object EN)
      CEN (vlax-get EN 'CENTER);以後可能不支持,故還是少用;LUCAS
   ;|
      CEN (vlax-safearray->list
      (vlax-variant-value (vla-get-center EN))
   )|;
      RAD (vla-get-radius EN)
      I    (+ 1 I)
)

陌生人 · 发表于 2003-12-3 14:35:52

谢谢指点

zxcvbnm-cad · 发表于 2004-12-1 15:26:30

能不能把多边形变成圆吗

hi71400 · 发表于 2004-12-1 17:46:38

更简单啊.求圆心和半径就行了..................更懒的方法:先连成复合线再拟合曲线.!

xyp1964 · 发表于 2004-12-1 18:13:17

圆、椭圆、正方形等封闭图形变多边形：
http://www.xdcad.net/forum/showthread.php?s=&threadid=301953

li809 · 发表于 2005-2-16 21:38:18

有实际应用价值吗吗

ntwzym · 发表于 2006-8-23 13:05:27

才发现这个好东西

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

[求助] [求助]：圆变多边形

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

相关帖子