找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: xiaoyuzj503

2013-06-11 QQ群:ALISP&VLISP(143438137) 聊天记录:签到

  [复制链接]

已领礼包: 1915个

财富等级: 堆金积玉

发表于 2013-6-11 18:34:49 | 显示全部楼层
迷糊的世界(364125543)于2013-06-11 18-34-49:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 18:35:02 | 显示全部楼层
梦宇ぁ恋秀(281383277)于2013-06-11 18-35-02:
;;;给表根据X Y 给定的表达式进行排序-
;;;oflist :(0 > ) 1)
;;;返回:((7 9) (1 6) (6 4) (2 2) (6 2) (7 3))
(defun NB_px
             (xyzlist oflist ddd / e1 e2 one oneof two twoof)
  (setq one (car oflist))
  (if (= one 0)
    ;;若以X优先
    (setq one        car ;_X
          two        CADR ;_Y
          oneof        (cadr oflist) ;_X
          twoof        (caddr oflist) ;_y
    ) ;_ 结束setq
    ;;若以Y优先
    (setq one        cadr ;_Y
          two        CAR ;_X
          oneof        (caddr oflist) ;_Y
          twoof        (cadr oflist) ;_X
    ) ;_ 结束setq
  ) ;_ 结束if
  (vl-sort xyzlist
           (function (lambda (e1 e2)
                       (cond
                         (
                          (> (abs (- (one e1) (one e2)))
                             ddd
                          ) ;_ 结束>
                          (oneof (one e1)
                                 (one e2)
                          ) ;_ 结束oneof
                         )
                         (
                          T
                          (twoof
                            (two e1)
                            (two e2)
                          ) ;_ 结束twoof
                         )
                       ) ;_ 结束cond
                     ) ;_ 结束lambda
           ) ;_ 结束function
  ) ;_ 结束vl-sort
) ;_ 结束defun
;;; [功能] 判断 X 是否是图元名
(defun MJ:enP (X)
  (= (type X) 'ENAME)
)
;;; [功能] 将选择集转换为图元列表
;;; [参数] SS---选择集
;;; [返回] 表(图元列表长度 图元列表)
(defun MJ:SS->LIST (SS)
  (vl-remove-if-not
    'MJ:enP
    (mapcar
      'cadr
      (ssnamex SS)
    )
  )
)
(defun x_windows
       (rows colu row1 colu1 pt / pt0 pt1 pt2 pt3 pt4 ww ptt ww)
  (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 "pline" pt1 pt2 pt3 pt4 "c")        ;外框线
  (setq        ptt pt4
        pt2 pt4
  )


  (setq pt0 pt)
  (repeat colu
    (setq pt1 (mapcar '+ pt0 '(40 40 0)))
    (setq pt2 (polar pt1 0 (- ww 80)))
    (setq pt3 (polar pt1 (* pi 0.5) (- row1 (* row2 (1- rows)) 80)))
    (setq pt4 (polar pt2 (* pi 0.5) (- row1 (* row2 (1- rows)) 80)))
    (command "pline" pt1 pt2 pt4 pt3 "c")
   "c" "5" "layer5" "")
  (setq rows (getint "\n窗a上下分格数(1不分格)/: ")) ;
  (if (= rows nil)
    (setq rows 2)
  )
  (setq colu (getint "\n窗扇数: "))
  (if (= colu nil)
    (setq colu 4)
  )
  (if (> rows 1)
    (progn
      (setq row2 (getdist "\n窗上格高度: "))
      (if (= row2 nil)
        (setq row2 450)
      )
    )
    (setq row2 1)
  )
  (princ "选择窗外框线,必须PLINE")
  (setq
    ptlist
     (mapcar
       '(lambda        (y)
          (mapcar
            'cdr
            (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget y))
          )
        )
       (MJ:SS->LIST (setq ss (ssget '((0 . "*POLYLINE")))))
     )
  )
  (SETQ
    PTLIST (MAPCAR '(LAMBDA (X) (NB_px X (list 0 <
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 18:35:27 | 显示全部楼层
梦宇ぁ恋秀(281383277)于2013-06-11 18-35-27:
求改动。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 19:08:58 | 显示全部楼层
〇。(871008605)于2013-06-11 19-08-58:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 394个

财富等级: 日进斗金

发表于 2013-6-11 20:25:14 | 显示全部楼层
KwokSam(785013368)于2013-06-11 20-25-14:
[face14.gif]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-6-11 21:41:24 | 显示全部楼层
炫翔(2363673534)于2013-06-11 21-41-24:
大家晚上好,提前祝大家端午节快乐!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 21:43:42 | 显示全部楼层
Happy(410786171)于2013-06-11 21-43-42:
[qqimg]{B507AF61-138E-77C3-A241-83F194535EB9}.gif[/qqimg]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 21:49:19 | 显示全部楼层
东成西就(908741559)于2013-06-11 21-49-19:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 21:49:29 | 显示全部楼层
东成西就(908741559)于2013-06-11 21-49-29:
提前祝大家端午节快乐!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 394个

财富等级: 日进斗金

发表于 2013-6-11 22:22:40 | 显示全部楼层
KwokSam(785013368)于2013-06-11 22-22-40:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 22:39:06 | 显示全部楼层
张牙舞爪(13885696)于2013-06-11 22-39-06:
写扩展数据有不有精简的代码 ?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 23:03:42 | 显示全部楼层
流氓兔(871425525)于2013-06-11 23-03-42:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 23:27:13 | 显示全部楼层
書生—SLQ(421944906)于2013-06-11 23-27-13:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 23:28:25 | 显示全部楼层
狂刀(51050632)于2013-06-11 23-28-25:
扯犊子
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-11 23:28:49 | 显示全部楼层
狂刀(51050632)于2013-06-11 23-28-49:
需要增加什么?最需要的是支持到cad2012以上版本
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-14 20:25 , Processed in 0.344286 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表