设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 间隙分割→异等偏移
12345678910... 12下一页
返回列表 发新帖
楼主: 荒野孤行

[源码] 间隙分割→异等偏移

    [复制链接]
heisedeye
发表于 2015-5-29 15:22:32 | 显示全部楼层
谢谢楼主分享
回复 支持 反对

使用道具 举报

hooboxu
发表于 2015-5-29 22:19:53 | 显示全部楼层
挺赞的.画立面柜子应该也不错
回复 支持 反对

使用道具 举报

冒个烟圈
发表于 2015-5-30 18:35:19 | 显示全部楼层
睢个热闹。。看看是什么好东东
回复 支持 反对

使用道具 举报

freehand8008
发表于 2015-6-2 09:36:00 | 显示全部楼层
SO GOOD!!!!
回复 支持 反对

使用道具 举报

xxxyyyzzz
发表于 2015-6-2 13:01:25 | 显示全部楼层
有源码，赞一个！
回复 支持 反对

使用道具 举报

yf793826152
发表于 2015-6-7 16:04:09 | 显示全部楼层
院长的神器  必须来支持啊下
回复 支持 反对

使用道具 举报

wyl605
发表于 2015-6-7 19:07:24 | 显示全部楼层
好东西看看学习一下
回复 支持 反对

使用道具 举报

edata
发表于 2015-6-8 14:55:58 | 显示全部楼层
其实我在2010年的时候写过这种类型的，当时还是用command写的，很简单。现在用的是动态。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=81972&fromuid=338795
------------------------------------------------------------------------------------------------------------------

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x

评分

参与人数 2明经币 +2 收起 理由
荒野孤行 + 1 赞一个!
lucas_3333 + 1 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

lucas_3333
发表于 2015-6-8 16:30:56 | 显示全部楼层
edata 发表于 2015-6-8 14:55
其实我在2010年的时候写过这种类型的，当时还是用command写的，很简单。现在用的是动态。
http://bbs.mjtd ...

E大,可否分享动态版的?
回复 支持 反对

使用道具 举报

edata
发表于 2015-6-8 20:10:41 | 显示全部楼层
lucas_3333 发表于 2015-6-8 16:30
E大,可否分享动态版的?

  1. (vl-load-com)
  2. (defun c:tt (/ px1 px3 p1 p2 p3 p4 gr p5 p6 pts p56lst p78lst
  3.              p7 p8 n_lst dr_lst www ddd dsx dsy
  4.              p55 p66 p56ds
  5.              )
  6.   
  7.   (defun ptss_com (ptss / nlst)
  8.     (setq nlst '())
  9.     (while (car ptss)
  10.       (setq nlst (cons (car ptss) nlst))
  11.       (if (not (cadr ptss))
  12.         (setq nlst (cons (last nlst) nlst))
  13.         (setq nlst (cons (cadr ptss) nlst))
  14.       )
  15.       (setq ptss (cdr ptss))
  16.     )
  17.     (reverse nlst)
  18.   )
  19.   (defun 2pt4pt(p1 p3 / p2 p4 x_max x_min y_min y_max)
  20.   (setq x_min(min (car p1) (car p3))
  21.         x_max(max (car p1) (car p3))
  22.         y_min(min (cadr p1) (cadr p3))
  23.         y_max(max (cadr p1) (cadr p3))
  24.         )
  25.     (setq p1(list x_min y_min)
  26.           p2(list x_max y_min)
  27.           p3(list x_max y_max)
  28.           p4(list x_min y_max)
  29.           )
  30.     (list p1 p2 p3 p4)
  31.     )
  32.   
  33.   (or sk_gds1(setq sk_gds1 100))
  34.   (and (setq sk_gds2 (getreal (strcat "\n输入固定间隔值<"(rtos sk_gds1 2 0)">:")))(setq

  36. sk_gds1 sk_gds2))
  37.   (if (and (setq px1 (getpoint "\n指定第一点:"))
  38.            (setq px3 (getcorner px1 "\n指定对角点:"))          
  39.       )
  40.     (progn
  41.       
  42.       (setq pts (2pt4pt px1 px3))
  43.       (setq p1 (car pts)
  44.             p2 (cadr pts)
  45.             p3 (caddr pts)
  46.             p4 (cadddr pts)
  47.             www 1
  48.             ddd 1
  49.       )      
  50.         (setq dsx (distance p1 p2)
  51.               dsy (distance p2 p3)
  52.         )
  53.       (if (not(or (> dsx (+ sk_gds1 sk_gds1))(> dsy (+ sk_gds1 sk_gds1))))
  54.         (alert "距离过小")
  55.       (progn
  56.       (princ "\n[W 上/S 下/A 左/D 右]调整:")
  57.       (while (/= (car (setq gr (grread t 10 0))) 3)
  58.         (redraw)
  59.         (setq n_lst (ptss_com pts))
  60.         (if p56lst (setq n_lst (append p56lst n_lst)))
  61.         (if p78lst (setq n_lst (append p78lst n_lst)))
  62.         (grvecs (append '(-6) n_lst ))
  63.        
  64.         (cond
  65.           ;;w按键
  66.           ((and  (or (equal gr '(2 87)) (equal gr '(2 119)))
  67.                 (> (- (/ (- dsy sk_gds1) (* (1+ www) 1.0)) sk_gds1) 0))
  68.            (princ "\n[W 上/S 下/A 左/D 右]调整:当前上下间距为:")
  69.            (princ(setq www(1+ www)))(princ "YY")
  70.            (princ (- (/ (- dsy sk_gds1) (* www 1.0)) sk_gds1))
  71.            (setq p5 p1
  72.                  p6 p2
  73.                  p56ds (/ (- dsy sk_gds1) (* www 1.0))
  74.                  p55 (polar p1 (* 1.5 pi) (- p56ds sk_gds1 ))
  75.                  p66 (polar p2 (* 1.5 pi) (- p56ds sk_gds1 ))
  76.                  p56lst '()                 
  77.                  )
  78.            (repeat www
  79.            (setq p55 (polar p55 (* 0.5 pi) p56ds))
  80.            (setq p66 (polar p66 (* 0.5 pi) p56ds))
  81.            (setq p5 (polar p5 (* 0.5 pi) p56ds))
  82.            (setq p6 (polar p6 (* 0.5 pi) p56ds))
  83.           
  84.              (setq p56lst(cons p55 p56lst)
  85.                    p56lst(cons p66 p56lst)
  86.                    p56lst(cons p5 p56lst)
  87.                    p56lst(cons p6 p56lst))
  88.              )
  89.            )
  90.           ;;;s按键函数
  91.           ((and  (or (equal gr '(2 83)) (equal gr '(2 115)))
  92.                  (> www 0)
  93.                 (>(- (/ (- dsy sk_gds1) (* www 1.0)) sk_gds1)0) )
  94.            (if (/= www 1)
  95.              (progn
  96.            (princ "\n[W 上/S 下/A 左/D 右]调整:前上下间距为:")
  97.            (princ(setq www (1- www)))(princ "YY")
  98.            (princ (- (/ (- dsy sk_gds1) (* www 1.0)) sk_gds1))
  99.            (setq p5 p1
  100.                  p6 p2
  101.                  p56ds (/ (- dsy sk_gds1) (* www 1.0))
  102.                  p55 (polar p1 (* 1.5 pi) (- p56ds sk_gds1 ))
  103.                  p66 (polar p2 (* 1.5 pi) (- p56ds sk_gds1 ))
  104.                  p56lst '()                 
  105.                  )
  106.            (repeat www
  107.            (setq p55 (polar p55 (* 0.5 pi) p56ds))
  108.            (setq p66 (polar p66 (* 0.5 pi) p56ds))
  109.            (setq p5 (polar p5 (* 0.5 pi) p56ds))
  110.            (setq p6 (polar p6 (* 0.5 pi) p56ds))
  111.           
  112.              (setq p56lst(cons p55 p56lst)
  113.                    p56lst(cons p66 p56lst)
  114.                    p56lst(cons p5 p56lst)
  115.                    p56lst(cons p6 p56lst))
  116.              )
  117.            )
  118.              (setq p56lst '())
  119.              ))
  120.           ;;a按键
  121.           ((and  (or (equal gr '(2 97)) (equal gr '(2 25)))
  122.                  (> ddd 0)
  123.                 (>(- (/ (- dsx sk_gds1) (* ddd 1.0)) sk_gds1)0) )
  124.            (if (/= ddd 1)
  125.              (progn
  126.            (princ "\n[W 上/S 下/A 左/D 右]调整:当前左右间距为:")
  127.            (princ(setq ddd (1- ddd)))(princ "XX")
  128.            (princ (- (/ (- dsx sk_gds1) (* ddd 1.0)) sk_gds1))
  129.            (setq p7 p1
  130.                  p8 p4
  131.                  p78ds (/ (- dsx sk_gds1) (* ddd 1.0))
  132.                  p77 (polar p1 pi (- p78ds sk_gds1 ))
  133.                  p88 (polar p4 pi (- p78ds sk_gds1 ))
  134.                  p78lst '()                 
  135.                  )
  136.            (repeat ddd
  137.            (setq p77 (polar p77 0 p78ds))
  138.            (setq p88 (polar p88 0 p78ds))
  139.            (setq p7 (polar p7 0 p78ds))
  140.            (setq p8 (polar p8 0 p78ds))
  141.           
  142.              (setq p78lst(cons p77 p78lst)
  143.                    p78lst(cons p88 p78lst)
  144.                    p78lst(cons p7 p78lst)
  145.                    p78lst(cons p8 p78lst))
  146.              )
  147.            )
  148.              (setq p78lst '())
  149.              ))
  150.           ;;d 按键
  151.           ((and  (or (equal gr '(2 68)) (equal gr '(2 100)))
  152.                 (> (- (/ (- dsx sk_gds1) (* (1+ ddd) 1.0)) sk_gds1) 0))
  153.            (princ "\n[W 上/S 下/A 左/D 右]调整:前上下间距为:")
  154.            (princ(setq ddd(1+ ddd)))(princ "YY")
  155.            (princ (- (/ (- dsx sk_gds1) (* ddd 1.0)) sk_gds1))
  156.            (setq p7 p1
  157.                  p8 p4
  158.                  p78ds (/ (- dsx sk_gds1) (* ddd 1.0))
  159.                  p77 (polar p1 pi (- p78ds sk_gds1 ))
  160.                  p88 (polar p4 pi (- p78ds sk_gds1 ))
  161.                  p78lst '()                 
  162.                  )
  163.            (repeat ddd
  164.            (setq p77 (polar p77 0 p78ds))
  165.            (setq p88 (polar p88 0 p78ds))
  166.            (setq p7 (polar p7 0 p78ds))
  167.            (setq p8 (polar p8 0 p78ds))
  168.           
  169.              (setq p78lst(cons p77 p78lst)
  170.                    p78lst(cons p88 p78lst)
  171.                    p78lst(cons p7 p78lst)
  172.                    p78lst(cons p8 p78lst))
  173.              )
  174.            )
  175.           
  176.           
  177.         )
  178.       )
  179.       ;end while
  180.       (if (and dsx dsy (or (> www 1)(> ddd 1)))
  181.         (progn
  182.           (setq ds_y(- (/ (- dsy sk_gds1 )(* www 1.0))sk_gds1))
  183.           (setq ds_x(- (/ (- dsx sk_gds1 )(* ddd 1.0))sk_gds1))
  184.           (princ"\n")
  185.           (princ ds_x)(princ ds_y)
  186.           (setq px1(polar (polar p1 0 sk_gds1) (* 0.5 pi) sk_gds1)
  187.                 px2(polar px1 0 ds_x)
  188.                 px3(polar px2 (* 0.5 pi) ds_y)
  189.                 px4(polar px1 (* 0.5 pi) ds_y))
  190.           (setq lst (list px1 px2 px3 px4))          
  191.           (setq en(entmakex (append
  192.                       (list '(0 . "LWPOLYLINE")
  193.                             '(100 . "AcDbEntity")
  194.                             '(100 . "AcDbPolyline")
  195.                             (cons 90 (length lst))
  196.                             (cons 70 1))
  197.       (mapcar '(lambda (pt)(cons 10 pt)) lst )) ))
  198.           (if en
  199.   (progn
  200.     (vla-arrayrectangular (vlax-ename->vla-object en) www ddd 1  (+ ds_y sk_gds1)(+ ds_x

  202. sk_gds1) 1)
  203.     )
  204.   )
  205.           )
  206.         )
  207. ))
  208.     )                                        ;end progn
  209.   )                                        ;end if
  210.   (redraw)
  211.   (princ)
  212. )                                        ;end defun
回复 支持 反对

使用道具 举报

12345678910... 12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-6 07:35 , Processed in 0.158693 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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