找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 683|回复: 0

[求助] [求助]:[求助]:[求助]:我编制的矩形阵列程序如下,请问环形阵列怎样编?

[复制链接]
发表于 2007-4-10 00:11:53 | 显示全部楼层 |阅读模式

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

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

×
(defun c:load_Column()
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)
        AcadDocument(vla-get-ActiveDocument AcadObject)
        mSpace(vla-get-ModelSpace AcadDocument)
  )
;;;创建块
  (setq xt1 (list 50 50 0))
  (setq xt2 (list  1250 50 0))
  (setq pt1 (list 0 0 0))
  (setq pt2 (list 50 0 0))
  (setq pt3 (list 50 100 0))
  (setq pt4 (list 0  100 0))
  (setq insertionPnt1 (getpoint "指定一点:"))
  (setq x1 (car insertionPnt1))
  (setq ff4 (rtos x1 2 0))
  (setq insertionPnt (vlax-3d-point (list 0 0 0)))
  (setq blockObj (vla-add (vla-get-Blocks AcadDocument)insertionPnt  ff4 ))
(defun ax:3D(pt)
  (setq xt(vlax-make-safearray vlax-vbDouble'(0 . 2)))
  (vlax-safearray-fill xt pt)
)  
  ;创建直线
    (setq Lp (vla-addline blockobj  (ax:3D xt1) (ax:3D xt2)))
  ;创建多段线
   (setq pnts(vlax-make-safearray vlax-vbDouble '(0 . 14)))
  (vlax-safearray-fill Pnts (append pt1 pt2 pt3 pt4 pt1))
  (setq lp(vla-AddPolyline blockobj  pnts))

(setq insertPnt (ax:3D insertionPnt1))
;;; 使用图块以及AddMInsertBlock 方法建立一个矩形阵列
  (setq newMBlock(vla-addmInsertBlock mSpace insertPnt  ff4   1 1  3.14159265 3.14159265 10 1 800 0))   
  (vla-ZoomExtents AcadObject)
;;; 显示以 MInsertBlock定义的行与列的信息
  (princ (STRCAT "矩形阵列的组成是: " (ITOA (vla-get-Columns newMBlock)) "行,"
               "间距是: " (RTOS (vla-get-ColumnSpacing newMBlock)) " 与 "

                (ITOA (vla-get-Rows newMBlock)) "列,"

               "间距是: " (RTOS (vla-get-RowSpacing newMBlock)) "\n"))

  (princ)

)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-15 08:42 , Processed in 0.324228 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表