选矩形框画开门线

305341043 · 发表于 2018-9-19 17:29:36

如截图中：选择矩形框任意一条边上的点，由此边的中点画直线到对角的端点上。

yshf · 发表于 2019-6-14 10:19:53

;试用以下程序
(defun c:kmx()
   (vl-load-com)
   (setq cmd (getvar "cmdecho"))
   (setq osm (getvar "osmode"))
   (setvar "cmdecho" 0)
   (setvar "osmode" 0)
   (command "_undo" "be")
   (while (setq ssa (ssget ":S" '((0 . "LWPOLYLINE"))))
      (setq entx (car (ssnamex ssa)))
      (setq obj  (vlax-ename->vla-object (cadr entx)))
      (setq pae  (vlax-curve-getendparam obj))
      (if (or (and (= pae 4.0) (= (vlax-curve-isClosed obj) t))
   (and (= pae 4.0) (equal (vlax-curve-getstartpoint obj) (vlax-curve-getendpoint obj)))
      )
      (progn
               (setq pt (cadr (last entx)))
               (setq pt0  (vlax-curve-getclosestpointto obj pt))
               (setq par  (vlax-curve-getparamatpoint obj pt0))
               (setq pai  (fix par))
               (setq pai-1 (- pai 1.0))
               (if (< pai-1 0.0) (setq pai-1 (+ pai-1 pae)))
               (setq pai+1 (+ pai 2.0))
               (if (> pai+1 pae) (setq pai+1 (- pai+1 pae)))
               (setq pmid  (vlax-curve-getpointatparam obj (+ pai 0.5)))
               (setq pt1 (vlax-curve-getpointatparam obj pai-1))
               (setq pt2 (vlax-curve-getpointatparam obj pai+1))
               (command "_pline" pt1 pmid pt2 "")
      )
         (alert "你所选取的不由4点组成的闭合矩形!")
   )
   )
   (command "_undo" "e")
   (setvar "osmode" osm)
   (setvar "cmdecho" cmd)
   (princ)
)

tfanghui · 发表于 2022-7-17 23:50:36

本帖最后由 tfanghui 于 2022-7-19 21:47 编辑

00放飞梦想00 发表于 2020-3-23 16:39
不错代码，开启哪边点哪边很好理解，可考虑加列表选择，同时指定下线型及颜色就更完美了！顶顶顶

望回 ...

楼主看看这个可用吗 http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7330607
(出处: 明经CAD社区)

00放飞梦想00 · 发表于 2020-3-23 16:39:41

yshf 发表于 2019-6-14 10:19
;试用以下程序
(defun c:kmx()
(vl-load-com)

不错代码，开启哪边点哪边很好理解，可考虑加列表选择，同时指定下线型及颜色就更完美了！顶顶顶

望回复源码

pastor · 发表于 2018-9-24 22:27:14

已完成。具体咨询QQ：314328161

1784290342 · 发表于 2018-10-26 15:26:22

这么简单，需要的话，我给你写，算白帮你忙了

305341043 · 发表于 2019-2-22 11:45:02

1784290342 发表于 2018-10-26 15:26
这么简单，需要的话，我给你写，算白帮你忙了

抽空帮我写个呗

maxli · 发表于 2019-6-4 17:20:47

写出来的发上去啊

305341043 · 发表于 2019-6-7 16:54:48

没见到上传呀

bai2000 · 发表于 2019-6-15 09:43:55

改为在四边形中点取，更好

zj20190405 · 发表于 2020-2-20 22:45:09

yshf 发表于 2019-6-14 10:19
;试用以下程序
(defun c:kmx()
(vl-load-com)

大佬，能不能麻烦改下，封闭空间取点，很少矩形画图的，点取4边边缘生成，

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

选矩形框画开门线

本帖子中包含更多资源

本帖子中包含更多资源