CAD立面窗户和双跑楼梯 自定义尺寸 非常强悍的LSP插件

米克

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:LTPM双跑楼梯立面.rar 
下载次数:156  文件大小:1.82 KB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:LMW立面窗户.rar 
下载次数:122  文件大小:907 Bytes 
下载权限: 不限 以上  [免费赚D豆]

wxytiger

这么多下载的，却无一回复，这样不好。用的好不好总要给个反馈啊。
纯支持楼主一个。

flowerson

不错，还是源码的！

米克

wxytiger 发表于 2013-7-24 11:59
这么多下载的，却无一回复，这样不好。用的好不好总要给个反馈啊。
纯支持楼主一个。

谢谢  就先别说设计 光从态度和人品  哥们你就够了~~~~

米克

flowerson 发表于 2013-7-24 14:51
不错，还是源码的！

我发的基本上都是源码的  命令什么的 你们都可以自己修改的   非常方便的~~~

lq3371

谢谢分享，先下来看看，

bai2000

纯支持楼主一个
:o:P

lq3371

试了下，画窗不错，画楼梯能改进下就好，增加左侧休息平台，现弟二跑踏面比输入多一步，

i3ku

你这个是原始版的立面窗lsp，我给你个加强版的版 ;////////////////////////////////////////////////

i3ku

加强版立面窗lsp，感谢某位
;////////////////////////////////////////////////
;;绘图工具---立面窗生成

(defun C:wrf_lmw( / lay os rows colu row1 row2 colu1
                     pt pt0 pt1 pt2 pt3 pt4 ww)
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 255)
(command "color" "bylayer")
(command "layer" "m" "lmw" "c" "146" "lmw" "")
(setq rows (getint "\n窗上下分格数(1不分格)/<或2>: "))  ;
(if (= rows nil) (setq rows 2))
(setq colu (getint "\n窗扇数<3>: "))
(if (= colu nil) (setq colu 3))
(setq row1 (getdist "\n窗高<1500>: "))
(if (= row1 nil) (setq row1 1500))
(if (> rows 1) (progn
  (setq row2 (getdist "\n窗上格高度<450>: "))
  (if (= row2 nil) (setq row2 450))
)
  (setq row2 1)
)
(setq colu1 (getdist "\n窗宽<1500>: "))
(if (= colu1 nil) (setq colu1 1500))
(setq pt (getpoint "\n窗左下角点: "))
(setq pt1 pt)
(setq ww (/ colu1 colu))                 ;数据输入
(setq pt2 (polar pt1 0 colu1))
(setq pt3 (polar pt2 (* pi 0.5) row1))
(setq pt4 (polar pt1 (* pi 0.5) row1))
(command "line" pt1 pt2 pt3 pt4 "c")   ;外框线
(setq ptt pt4 pt2 pt4)
(repeat (1- rows)
  (setq pt2 (polar pt2 (/ pi -2) row2))
  (setq pt3 (polar pt2 0 colu1))
  (command "line" pt2 pt3 "")                      ;横线
)
(setq pt2 pt1)
(if (> colu 1)
  (repeat (1- colu)
   (setq pt2 (polar pt2 0 ww))
   (setq pt3 (polar pt2 (* pi 0.5) row1))
   (command "line" pt2 pt3 "")
  )
)                                          ;竖线
(setq pt0 pt)
(repeat colu
  (setq pt1 (mapcar '+ pt0 '(45 45 0)))
  (setq pt2 (polar pt1 0 (- ww 90)))
  (setq pt3 (polar pt1 (* pi 0.5) (- row1 (* row2 (1- rows)) 90)))
  (setq pt4 (polar pt2 (* pi 0.5) (- row1 (* row2 (1- rows)) 90)))
  (command "line" pt1 pt2 pt4 pt3 "c")
  (setq pt0 (polar pt0 0 ww))                         ;下框内框线
)
(repeat (1- rows)
  (setq ptt (polar ptt (/ pi -2) row2))
  (setq pt0 ptt)
  (repeat colu
   (setq pt1 (mapcar '+ pt0 '(45 45 0)))
   (setq pt2 (polar pt1 0 (- ww 90)))
   (setq pt3 (polar pt1 (* pi 0.5) (- row2 90)))
   (setq pt4 (polar pt2 (* pi 0.5) (- row2 90)))
   (command "line" pt1 pt2 pt4 pt3 "C")
   (setq pt0 (polar pt0 0 ww))                         ;上框内框线
  )
)
(setvar "OSMODE" os)
(command "layer" "s" lay "")
(redraw)
(princ)
)

frenkey

我试试看楼梯可以异性踏步嘛？

15989144277

很好用，谢谢，有空改成DCL版