自由矩形（建模利器）

18623643220 · 发表于 2015-7-31 13:53:38

很有用的程序

crab333 · 发表于 2015-7-31 23:25:58

应该不错，回复看看

crab333 · 发表于 2015-7-31 23:27:01

应该不错，回复看看

crab333 · 发表于 2015-8-4 18:22:08

看看。学习学习，学习学习

xychenchanfan · 发表于 2015-8-5 23:38:42

神奇，感谢楼主分享

xzs16 · 发表于 2015-8-12 12:04:08

kankan测试一下

xzs16 · 发表于 2015-8-12 12:12:48

发错了，不好意思。。

kele99kele · 发表于 2015-8-12 15:02:16

这个好，收藏了

kele99kele · 发表于 2015-8-12 15:03:17

积分高于100，哎，这要混到啥时候啊

唯若浩辰 · 发表于 2015-8-12 15:05:58

效果不错

txllap · 发表于 2015-8-12 15:27:44

倒是很有意思，不过还没想到具体什么地方能用到

★紫竹★ · 发表于 2015-8-29 18:17:46

看看。。。。。。

tangjunasd · 发表于 2015-8-30 10:54:13

;连画矩形这里有个类似的

(defun c:re (/ cutz ms thisdrawing)

  (defun cutz (p)
(list (car p) (cadr p))
  )
  (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object))
ms    (vla-get-modelspace thisdrawing)
  )
  (vla-startundomark thisdrawing)
  (vl-catch-all-apply
'(lambda (/ p1 p2 p3 p4 v Regions Region pl)
   (while (and (setq p1 (getpoint "\n指定矩形起点: "))
   (setq p3 (getcorner p1 "\n指定下一点: "))
   )
  (setq p1 (cutz p1)
      p3 (cutz p3)
      v  (mapcar '- p3 p1)
      p2 (mapcar '+ p1 (list (car v) 0.))
      p4 (mapcar '+ p1 (list 0. (cadr v)))
  )
  (setq
pl (vlax-invoke
  ms
  'AddLightweightPolyline
  (append p1 p2 p3 p4)
   )
  )
  (vla-put-closed pl :vlax-true)
  (if regionS
(progn
   (setq region (vlax-invoke ms 'addregion (list pl)))
   (vla-Boolean (car regionS) acUnion (car region))
)
(setq regionS (vlax-invoke ms 'addregion (list pl)))
  )
  (vla-delete pl)
   )
   )
nil
  )
  (vla-endundomark thisdrawing)
  (princ)
)

s1000sp · 发表于 2015-9-4 23:40:57

很想看看，挺有用的

wlarlen · 发表于 2015-9-7 14:26:56

感谢楼主，谢谢分享

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

[矩形] 自由矩形（建模利器）