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

CCarch

Happy(410786171)于2013-05-15 09-34-19：
搞不定了，

zhang8755

迷糊的世界(364125543)于2013-05-15 09-34-38：
签到

CCarch

Happy(410786171)于2013-05-15 09-34-58：
朋友给看看

zhang8755

迷糊的世界(364125543)于2013-05-15 09-36-21：
不同的群的签到记录还是分开的

CCarch

Happy(410786171)于2013-05-15 09-37-41：
朋友给看看是哪里出错了

13808843088

生无可恋(381164857)于2013-05-15 09-38-49：
字太大了，调一下吧，谢谢

CCarch

我是谁(421418741)于2013-05-15 09-39-26：
生成层的命令用“layer”

CCarch

我是谁(421418741)于2013-05-15 09-40-39：
类似(command "layer" "M" "t1"
                 "M" "2"
                 "M" "3"
                 "C" 1 "t1"  
                 "C" 2 "2"
                 "L" "" "3"
                 "L" "dote" "t1"
                 "LW" "DEFAULT" "t1"
                 "LW" ".25" "3"
                 "")

CCarch

我是谁(421418741)于2013-05-15 09-41-26：
修改增强块内的文字用什么函数比较好啊

CCarch

Happy(410786171)于2013-05-15 09-50-11：
(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)
        )
  (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))
　　)
  (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))

CCarch

One Is All(12486872)于2013-05-15 09-52-17：
[qqimg]{CA9BA8E9-96D8-62DE-C00E-78E49BD2F782}.jpg[/qqimg]

CCarch

淋雨的天空(859270266)于2013-05-15 09-59-47：
如何签到啊？

CCarch

︶ㄣ栤楓!(511123594)于2013-05-15 10-00-10：
签到

CCarch

淋雨的天空(859270266)于2013-05-15 10-00-33：
签到

XDSoft

XDSoft(7598165)于2013-05-15 10-12-56：
http://bbs.xdcad.net/thread-668095-1-1.html 给朋友写个按图层曲线面积统计的程序，欢迎大家提建议。