[分享]：绘制双线：hzsx

xyp1964 · 发表于 2008-12-5 21:14:39

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

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

×

绘制双线：hzsx

xyp1964 · 发表于 2008-12-5 21:16:26

效果1：

xyp1964 · 发表于 2008-12-5 21:17:43

效果2：

carrot1983 · 发表于 2008-12-5 23:24:54

准备模仿一个。还有一个核心问题没解决

lyy · 发表于 2008-12-9 16:18:44

;;画墙
(defun c:wall(/ lay oldort pt1 pt2 val)
  (setvar "cmdecho" 0)
  (if (not wall_h) (setq wall_h 3000))
  (if (not wall_w) (setq wall_w 200))
  (if (not wall_sty) (setq wall_sty "直墙"))
  (vl-cmdf "_.layer" "_m" (setq lay "墙") "_c" "41" "" "")
  (setq oldort (getvar "orthomode"))
  (while (or (initget "H W S") (setq pt1 (getpoint (strcat "\n***" wall_sty "、墙高=" (itoa wall_h) "、墙厚=" (itoa wall_w) "***\n" wall_sty "起点[墙高(H)/墙厚(W)/形式(S)]： "))))
(cond
   ((= pt1 "H")
      (setq wall_h (if (and (setq val (getint "\n墙体高度：")) (/= (setq val (abs val)) 0)) val wall_h))
   )
   ((= pt1 "W")
      (setq wall_w (if (and (setq val (getint "\n墙体厚度：")) (/= (setq val (abs val)) 0)) val wall_w))
   )
   ((= pt1 "S")
      (initget "L A")
      (setq val (getkword (strcat "\n选择墙体形式[直墙(L)/弧墙(A)]：<" (if (= wall_sty "直墙") "L" "A") ">")))
      (if val (setq wall_sty (if (= val "L") "直墙" "弧墙")))
   )
   ((= wall_sty "直墙")
      (setvar "orthomode" oldort)
      (while (setq pt2 (getpoint pt1 "\n直墙下一点："))
      (yad-addwall wall_sty nil nil pt1 pt2 nil wall_w wall_h lay)
      (setq pt1 pt2)
      )
   )
   (T
      (setvar "orthomode" 0)
      (while (and (setq pt2 (getpoint pt1 "\n弧墙终点："))
                  (not (grdraw pt1 pt2 1 1))
                  (setq pt3 (getpoint (yad-midpt pt1 pt2) "\n弧墙上的第二点："))
            )
      (yad-addwall wall_sty nil nil pt1 pt2 pt3 wall_w wall_h lay)
      (setq pt1 pt2)
      (redraw)
      )
      (redraw)
   )
)
  )
  (setvar "orthomode" oldort)
  (princ)
)

函数见：http://www.mjtd.com/bbs/dispbbs. ... ID=72471&page=1

Ljdickey · 发表于 2008-12-19 09:28:58

一个很好的例子

wxy-wyy · 发表于 2008-12-19 21:00:22

没钱下载呀

yh1998 · 发表于 2008-12-20 15:03:32

程序很好，收藏了谢谢

程彬 · 发表于 2008-12-21 10:44:18

这个使用起来很方便!谢谢!

bridgewind · 发表于 2008-12-21 13:17:19

支持下xyp1964 版主，好久没上了，非常亲切。

xiangandqing · 发表于 2008-12-24 16:18:46

暂时还不懂,学习中

kmdz · 发表于 2008-12-28 16:28:25

可惜不是源码。

30zhangtao · 发表于 2009-1-30 14:03:27

下载试用，谢谢！

ljm68 · 发表于 2009-2-6 07:26:58

学习学习，程序很好，收藏了谢谢

nonsmall · 发表于 2009-2-6 11:17:47

怎么下不了啊?

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

[分享]：绘制双线：hzsx

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

相关帖子

程序很好，收藏了谢谢