[原创]：剖折线绘制lsp程序

jiega

|;
初次来到本论坛,手头没有金币,好多东西无法下载,很遗憾;
自己编制了一些小的程序,拿出来与大家共享,希望能够挣到一些金币;
今后将陆续贴出一些程序,希望大家的批评指正;
;|

2. 
   
3. (defun c:pzx (/ o_os o_or pt1 pt2 ang1 ang2 ang3 ang4 pp1 pp2 pp3 pp4 pp5 pp6 L L1 L2 )
   
4.   
   
5.   (setq o_oss (getvar "osmode" ))
   
6.   (setq o_orr (getvar "orthomode" ))
   
7.   (setvar "osmode" 641)
   
8.   (setvar "orthomode" 1)
   
9.   (setq        olderr        *error*
   
10.         *error*        at_err
    
11.   )
    
12.   (setq pt1 (getpoint "\n第一点:"))
    
13.   (setq pt2 (getpoint pt1 "\n第二点:"))
    
14.   (setq ds (getdist pt2 "\n量取外伸长度:"))
    
15.   (setq ang1 (angle pt2 pt1))
    
16.   (setq pp1 (polar pt1 ang1 ds))
    
17.   (setq L (distance pt1 pt2))
    
18.   (setq L1 (/ L 2))
    
19.   (setq L2 (- L1 0.7))
    
20.   (setq ang2 (+ Pi ang1))
    
21.   (setq pp3 (polar pt1 ang2 L2))
    
22.   (setq ang3 (+ ang1 (* 0.5 pi)))
    
23.   (setq pp5 (polar pp3 ang3 1.2))
    
24.   (setq pp2 (polar pt2 ang2 ds))
    
25.   (setq pp4 (polar pt2 ang1 L2))
    
26.   (setq ang4 (- ang1 (* 0.5 pi)))
    
27.   (setq pp6 (polar pp4 ang4 1.2))
    
28.   (setvar "osmode" 0)
    
29.   (command "Pline" pp1 "W" "0" "" pp3 pp5 pp6 pp4 pp2 "")
    
30.   (setq *error* olderr)
    
31.   (setvar "osmode" o_oss)
    
32.   (setvar "orthomode" o_orr)
    
33.   (princ)
    
34. )

<br /> (defun c:pzx (/ o_os o_or pt1 pt2 ang1 ang2 ang3 ang4 pp1 pp2 pp3 pp4 pp5 pp6 L L1 L2 )<br />   <br />   (setq o_oss (getvar "osmode" ))<br />   (setq o_orr (getvar "orthomode" ))<br />   (setvar "osmode" 641)<br />   (setvar "orthomode" 1)<br />   (setq        olderr        *error*<br />         *error*        at_err<br />   )<br />   (setq pt1 (getpoint "\n第一点:"))<br />   (setq pt2 (getpoint pt1 "\n第二点:"))<br />   (setq ds (getdist pt2 "\n量取外伸长度:"))<br />   (setq ang1 (angle pt2 pt1))<br />   (setq pp1 (polar pt1 ang1 ds))<br />   (setq L (distance pt1 pt2))<br />   (setq L1 (/ L 2))<br />   (setq L2 (- L1 0.7))<br />   (setq ang2 (+ Pi ang1))<br />   (setq pp3 (polar pt1 ang2 L2))<br />   (setq ang3 (+ ang1 (* 0.5 pi)))<br />   (setq pp5 (polar pp3 ang3 1.2))<br />   (setq pp2 (polar pt2 ang2 ds))<br />   (setq pp4 (polar pt2 ang1 L2))<br />   (setq ang4 (- ang1 (* 0.5 pi)))<br />   (setq pp6 (polar pp4 ang4 1.2))<br />   (setvar "osmode" 0)<br />   (command "Pline" pp1 "W" "0" "" pp3 pp5 pp6 pp4 pp2 "")<br />   (setq *error* olderr)<br />   (setvar "osmode" o_oss)<br />   (setvar "orthomode" o_orr)<br />   (princ)<br /> )

xgwl

有个flash 演示就更好了!

风雪大侠

这样初级的东西也有奖励啊?

llmin

太简单，没有意思，来一个真正有用的好吗？

whywuhai

本人才来哈，什么也不明白的。哎呀，真实高深莫册的东西啊！

xyz518mm

小弟想理解了一下您的程序
所以做了些注解
不知道对不对烦请您纠正检讨一下
谢谢您了

另外有些问题
(setq pt2 (getpoint pt1 "\n第二点:"))
(setq ds (getdist pt2 "\n量取外伸长度:"))
两段程序是否可以合并写成一行呢?
以及 (setq ds (getdist "\n量取外伸长度:" pt2))
pt2写在后面会有何种问题呢?

另外有一个图形也是绘制程序
但不知道问题出在哪里
可否帮忙看一下程序呢
位置
http://p4.xdcad.net/forum/showthread.php?s=&threadid=483889



  (setq        olderr        *error*
        *error*        at_err
  )
;01.这段不清楚,可以解释吗?

  (setq pt1 (getpoint "\n第一点:"))
;02.设 pt1 第1点

  (setq pt2 (getpoint pt1 "\n第二点:"))
;03.设 pt2 第2点

  (setq ds (getdist pt2 "\n量取外伸长度:"))
;04.设 ds 长度

  (setq ang1 (angle pt2 pt1))
;05.设 ang1 的角度为 pt2 到 pt1

  (setq pp1 (polar pt1 ang1 ds))
;06.设 pp1 为由 pt1 点取得 角度 及 距离 的新座标点

  (setq L (distance pt1 pt2))
;07.设 L 为由 pt1 点到 pt2 点 取得距离

  (setq L1 (/ L 2))
;08.设 L1 为 L 距离的一半

  (setq L2 (- L1 0.7))
;09.设 L2 为 L1 距离在减少 0.7

  (setq ang2 (+ Pi ang1))
;10.设 ang2 为 180度 在加上 ang1 角度

  (setq pp3 (polar pt1 ang2 L2))
;11.设 pp3 为由 pt1 点取得 ang2 角度 及 L2距离 的新座标点

  (setq ang3 (+ ang1 (* 0.5 pi)))
;12.设 ang3 为 ang1 加上 90 度角

  (setq pp5 (polar pp3 ang3 1.2))
;13.设 pp5 为由 pt3 点取得 ang3 角度 及 1.2 的新座标点
;1.2代表为何不清楚,可以解释吗?

  (setq pp2 (polar pt2 ang2 ds))
;14.设 pp2 为由 pt2 点取得 ang2 角度 及 ds 距离 的新座标点

  (setq pp4 (polar pt2 ang1 L2))
;15.设 pp4 为由 pt2 点取得 ang1 角度 及 L2 距离 的新座标点

  (setq ang4 (- ang1 (* 0.5 pi)))
;16.设 ang4 为 ang1 减去 90 度角

  (setq pp6 (polar pp4 ang4 1.2))
;17.设 pp6 为由 pt4 点取得 ang4 角度 及 1.2 的新座标点
;1.2代表为何不清楚,可以解释吗?

  (setvar "osmode" 0)
;18.锁点变数

  (command "Pline" pp1 "W" "0" "" pp3 pp5 pp6 pp4 pp2 "")
;19.Pline绘制程序

  (setq *error* olderr)
;20.这段不清楚,可以解释吗?

jiega

1, 可以写成(setq ds (getdist (getpoint pt1 "\n第二点:") "\n量取外伸长度:"));你的理解有误,请参考lip帮助文件;
2, *error* 为出错函数; 用户可自定义;
3, 程序中出现的一些数值1.2等是根据"建筑制图规范"中绘制折断线的相关规定计算的;
4, 本程序尚不完善, 没有考虑比例问题;