明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

楼主: ucuc2003

求一个画上悬窗的小程序

[复制链接]
发表于 2013-6-8 21:54 | 显示全部楼层
试了一下没问题啊
回复

使用道具 举报

 楼主| 发表于 2013-6-8 21:58 | 显示全部楼层
52幕墙设计 发表于 2013-6-12 16:54
试了一下没问题啊

嗯是没有问题,但是没有框选功能
回复

使用道具 举报

发表于 2013-6-9 06:31 | 显示全部楼层
感谢Andyhon 分享程序
程序o.k.
回复

使用道具 举报

发表于 2013-6-12 09:48 | 显示全部楼层
[code="lisp] ;; 上悬窗
(defun c:tt ()
  (while (setq pt (getpoint "\n拾取内部点创建上悬窗<退出>: "))
    (setq ee (bpoly pt))
    (xyp-Offset ee 50 nil t t)
    (setq s1  (entlast)
          ptn (list (xyp-9pt s1 1) (xyp-9pt s1 8) (xyp-9pt s1 3))
          s2  (xyp-Pline ptn Tnil)
    )
  )
  (princ)
)[/code]
回复

使用道具 举报

 楼主| 发表于 2013-6-12 19:27 | 显示全部楼层
xyp1964 发表于 2013-6-16 04:48

院长你来了!!感谢关注!!
回复

使用道具 举报

发表于 2013-8-13 15:22 | 显示全部楼层
我的为什么运行不了
回复

使用道具 举报

 楼主| 发表于 2013-8-13 17:04 | 显示全部楼层
chendili 发表于 2013-8-17 10:22
我的为什么运行不了

cad要把ET工具安装上
回复

使用道具 举报

发表于 2013-8-14 11:30 | 显示全部楼层
安装后成功运行
回复

使用道具 举报

发表于 2014-8-27 11:55 | 显示全部楼层
ucuc2003 发表于 2013-6-3 20:15
(defun C:tt()
  (vl-load-com)
  (princ "\n拾取内部点创建上悬窗: ")

能不能实现只保留偏出来50的那条线?
回复

使用道具 举报

 楼主| 发表于 2014-8-31 21:23 | 显示全部楼层
haoryh 发表于 2014-8-31 06:55
能不能实现只保留偏出来50的那条线?

;;;拾取内部点创建上悬窗
(defun C:tt5 (/ tc col oldc pt ee pts pa pc)
   (setvar "cmdecho" 0)
   (vl-load-com)
   (princ "\n拾取内部点创建上悬窗: ")
   (while (setq pt (getpoint))
     (setq ee (bpoly pt))
     (setq ss (entlast))
     (vla-offset (vlax-ename->vla-object ee) -50)
     (setq ee (entlast)
           pts (acet-ent-geomextents ee)          ; ET function
           pa (car pts)
           pc (cadr pts)
     )
     (command "_.ERASE" ss "")
     (command "pline" "none" pa "none"
       (mapcar
         (function (lambda (a b) (/ (+ a b) 2)))
         pc
         (list (car pa) (cadr pc))
      )
     "none"
      (list (car pc) (cadr pa))
      ""
     )
   );while
   (princ)
)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-12-16 19:43 , Processed in 0.143096 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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