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

CCarch

依夜思晨(307103817)于2013-10-24 07-03-53：
签到

CCarch

〇。(871008605)于2013-10-24 08-12-06：
签到

CCarch

长风（龙少）(8240891)于2013-10-24 08-48-08：
签到

CCarch

___________(610680625)于2013-10-24 09-22-23：
签到

luozh7682

筑路人(310178970)于2013-10-24 09-26-47：
签到

CCarch

长风（龙少）(8240891)于2013-10-24 09-41-05：
加载lisp在2006版出现：函数已取消
        在2008版出现：读入的 (八进制) 字符不正确
请问是怎么回事？？

CCarch

√改＊變プ(369409526)于2013-10-24 09-41-45：
签到

CCarch

依夜思晨(307103817)于2013-10-24 09-51-13：
签到

luozh7682

筑路人(310178970)于2013-10-24 09-52-12：
[face13.gif]

CCarch

飘(157355446)于2013-10-24 09-53-06：
签到

CCarch

伴你走 Yi世(401802630)于2013-10-24 11-44-23：
请高手帮忙在这个程序中加入能按多边形的线长及面积筛选到相同实体！

CCarch

伴你走 Yi世(401802630)于2013-10-24 11-44-31：
;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
;;;                   否则，选中模板对象后，重新选择需要过滤对象；
;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
(defun TB:QS (new ids / GetPat filter)
  (defun GetPat (ids / SS en lst)
    (and
      (setq SS (entsel "\n请选择模板对象:"))
      (setq en (entget (car SS))
     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
      )
    ) ;and
    lst
  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
  (and
    (setq filter (GetPat ids))
    (sssetfirst nil (ssget filter))
  ) ;and
  (princ)
)

;;;----------------------------------------------------------------------------------------
;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
;;;各位可以举一反三，定义自己所需的快速选择的命令。
;;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。

(defun C:fft() ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
  (TB:QS T '(0 8 62 1 2 40 90))
)

守仁格竹GM

守仁格竹?????GM(23214352)于2013-10-24 12-51-21：
[qqimg]{693705D5-FE4D-2226-A4EA-88EE71CE06B3}.jpg[/qqimg] 这俩高手 我一直以为是一个人呢，一直搞混

lqynise

神秘将军(414713061)于2013-10-24 12-58-31：
其实他们不是一个人？

CCarch

牵ぶ伱の佑手(379002274)于2013-10-24 13-00-15：
vla 到底能不能 夸文档操作，怎么我做的打印会卡住呢