2013-05-15 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch

飞龙(877098916)于2013-05-15 09-00-18：
签到

CCarch

飞龙(877098916)于2013-05-15 09-00-21：
可耻啊

13808843088

生无可恋(381164857)于2013-05-15 09-00-46：
[face98.gif]

CCarch

/xu?誩茤鉍鉃?/xu(704138326)于2013-05-15 09-01-27：
签到

CCarch

流氓兔(871425525)于2013-05-15 09-03-58：
签到

CCarch

仲文玉(411952877)于2013-05-15 09-04-22：
签到

haibinpro

陈海彬(258498815)于2013-05-15 09-08-10：
签到

CCarch

飞诗(252545152)于2013-05-15 09-08-37：
[face134.gif]

CCarch

落墨花-骉！找(226361689)于2013-05-15 09-22-15：
签到

ysq101

平凡  淡定(120389613)于2013-05-15 09-22-32：
签到

eachy

eachy(124471899)于2013-05-15 09-23-52：
签到

CCarch

简单(252113063)于2013-05-15 09-24-31：
签到

CCarch

Happy(410786171)于2013-05-15 09-27-58：
签到

zyhandw

周(281369222)于2013-05-15 09-33-45：
签到

CCarch

Happy(410786171)于2013-05-15 09-33-58：
(defun c:h_hzbbg (  )                       ; 主函数，绘制板标高
  (if (not (tblsearch "layer" "defpoints"))
      (command ".-layer" "M" "defpoints" "C" "g" "defpoints" " ")
  )
  (if (not (tblsearch "layer" "填充-降板"))
      (command ".-layer" "M" "填充-降板" "C" "252" "填充-降板" " ")
  )
  (if (not (tblsearch "layer" "标注-降板"))
      (command ".-layer" "M" "标注-降板" "C" "7" "标注-降板" ""  "")
  )
  (setq
        hjb(getreal  "\n请输入降板标高：")
        p1 (getpoint "\n指定矩形板的一个角点：")
        p3 (getcorner p1 "\n指定矩形板的另一个角点：")
        Ht (if(setq tem (getint "\n请输入字高:"))  tem  500)
      　)
  (setvar "clayer" "填充-降板")
  (command "-bhatch" "a" "a"               ; *a[高级]选项，a[关联]
                                            "dr" "h"                       ; *dr[绘图次序]，h[边界之后]
                                             "p" ta bl jd                   ; *p[特性]选项,s[实体]（也可选u[自定义]）
                                            "s" ss                         ; *s[选择对象]，ss为程序选定需要填充的对象
                                             ""  ""
  )

  (setvar "clayer" "标注-降板")
  (command "_text" "s" "tssd_rein" "j" "bc" p5 Ht "0" tt )
  (setvar "clayer" lay_c)
(princ "\n运行命令：h_hzbbg" )
(princ))  )
  (setq x1 (car p1)
        y1 (cadr p1)
        x3 (car p3)
        y3 (cadr p3))
  (setq p2 (list x3 y1)
        p4 (list x1 y3)
        p5 (list ((* 0.5(+ x1 x3)) (* 0.5(+ y1 y3)) ) )
        tt (strcat "h-" hjb )
        )
  (setvar "clayer" "defpoints")
  (command "pline" p1 p2 p3 p4 p1 "")
  (setq ss (entlast))  ; 取得图面中,最后一个(最新建立)对象
  
　　(cond
　　　　((> hjb 0.22)(setq ta  "ar-sand"  bl  5  jd  0))
　　　　((> hjb 0.17)(setq ta  "brass"  bl  100  jd 30))
　　　　((> hjb 0.12)(setq ta  "swamp"  bl  10  jd  0))
　　　　((> hjb 0.07)(setq ta  "angle"  bl  50  jd  45))
　　　　((< hjb 0.08)(setq ta  "cross"  bl  100  jd  0))