由点生成一个填充圆

Free-Lancer · 发表于 2014-8-30 15:59:13

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

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

×

(defun AddCircle (p radius)
(vlax-invoke (fy:acspace) 'AddCircle p radius)
)
(defun c:tt (/ p pts el ha)
(while (setq p (getpoint))
(setq pts (cons p pts))
)
(if pts
(progn
(setq el (mapcar '(lambda (x)
(addcircle x 1.)
)
pts
)
)
(mapcar '(lambda (x / ha)
(setq ha (vla-addhatch
(fy:acspace)
acHatchPatternTypePredefined
"SOLID"
:vlax-false
)
)
(vla-appendouterloop
ha
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbobject
'(0 . 0)
)
(list x)
)
)
(vla-evaluate ha)
)
el
)
)
)
(princ)
)

(defun AddCircle (p radius) 
  (vlax-invoke (fy:acspace) 'AddCircle p radius) 
) 
(defun c:tt (/ p pts el ha) 
  (while (setq p (getpoint)) 
    (setq pts (cons p pts)) 
  ) 
  (if pts 
    (progn 
      (setq el (mapcar '(lambda        (x) 
                          (addcircle x 1.) 
                        ) 
                       pts 
               ) 
      ) 
      (mapcar '(lambda (x / ha) 
                 (setq ha (vla-addhatch 
                            (fy:acspace) 
                            acHatchPatternTypePredefined 
                            "SOLID" 
                            :vlax-false 
                          ) 
                 ) 
                 (vla-appendouterloop 
                   ha 
                   (vlax-safearray-fill 
                     (vlax-make-safearray 
                       vlax-vbobject 
                       '(0 . 0) 
                     ) 
                     (list x) 
                   ) 
                 ) 
                 (vla-evaluate ha) 
               ) 
              el 
      ) 
    ) 
  ) 
  (princ) 
)

fjb54007 · 发表于 2014-11-14 20:05:30

很有用谢谢楼主分享

xvjiex · 发表于 2021-7-21 00:02:03

感谢楼主分享由点生成一个填充圆

willclark · 发表于 2021-10-11 00:36:43

很有用谢谢楼主分享

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

[每日一码] 由点生成一个填充圆

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

浏览过的版块