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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 请问e派工具箱的xy方向缩放工具的源程序是什么 ？要他的 ...
12下一页
返回列表 发新帖
查看: 3436|回复: 12

[提问] 请问e派工具箱的xy方向缩放工具的源程序是什么 ？要他的那种效果

[复制链接]
李青松
发表于 2014-6-23 17:06 | 显示全部楼层 |阅读模式
请问e派工具箱的xy方向缩放工具的源程序是什么 ？要他的那种效果



工具箱, 源程序

相关帖子
回复

使用道具 举报

gcho
发表于 2014-6-26 09:21 | 显示全部楼层
  1. ;;; ************静态缩放缩放实体***********************
  2. (defun C:XSC(/ bp ss xscal yscal entL)

  4.   (defun errexit (s)
  5.     (princ "\nError:  ")
  6.     (princ s)
  7.     (restore)
  8.   )

  10.   (defun restore ()
  11.     (setvar "CMDECHO" (car oldvar))
  12.     (setq *error* olderr)
  13.     (princ)
  14.   )
  15.   
  16. (defun MAKEUNBLOCK (ss ip / tmp errexit mbx BLAYER)

  18.   (setq T (not nil))
  19.   (setq olderr  *error*
  20.         *error* errexit
  21.   )
  22.   (setq oldvar
  23.     (list
  24.       (getvar "CMDECHO")
  25.     )
  26.   )
  27.   (setvar "CMDECHO" 0)
  28.   (terpri)
  29.   (if BLAYER  
  30.     (command "._LAYER"
  31.       (if (tblsearch "LAYER" BLAYER) "_S" "_M")
  32.       BLAYER
  33.       ""
  34.     )
  35.   )
  36.   (if (and ip ss)
  37.     (progn
  38.       (entmake (list
  39.         (cons '0 "BLOCK")
  40.         (cons '2 "*U")
  41.         (cons '70 1)
  42.         (cons '10 ip)
  43.       ))
  44.       (setq cnt (sslength ss))
  45.       (while (>= (setq cnt (1- cnt)) 0)
  46.         (setq tmp (ssname ss cnt))
  47.         (entmake (setq el (entget tmp)))
  48.         (if (> (cdr (assoc 66 el)) 0)
  49.           (while
  50.             (/= "SEQEND"
  51.               (cdr
  52.                 (assoc 0
  53.                   (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))
  54.                 )
  55.               )
  56.             )
  57.           )
  58.         )
  59.         (entdel tmp)
  60.       )
  61.       (setq tmp (entmake (list (cons '0 "ENDBLK"))))
  62.       (entmake (list
  63.         (cons '0 "INSERT")
  64.         (cons '2 tmp)
  65.         (cons '10 ip)
  66.       ))
  67.     )
  68.   )  
  69.   (restore)
  70. )

  72.   (setq ss (ssget))    ;;; 选择缩放实体
  73.   (if ss
  74.     (progn
  75.       (setvar "cmdecho" 0)
  76.       (setq bp (getpoint "缩放基准点 (<0,0,0>): "))
  77.       (if (not bp) (setq bp (list 0 0 0)))
  78.       (setq xscal (getreal "X向比例因子 <1>: "))
  79.       (if (not xscal) (setq xscal 1))
  80.       (setq yscal (getreal "Y向比例因子 <1>: "))
  81.       (if (not yscal) (setq yscal 1))
  82.       (MAKEUNBLOCK ss bp)
  83.       (setq entL (entget (entLast))
  84.     entL (subst (cons 41 xscal) (assoc 41 entL) entL)
  85.     entL (subst (cons 42 yscal) (assoc 42 entL) entL)
  86.       )
  87.       (entmod entL)
  88.       (command "_explode" "l" "")
  89.     )
  90.   )
  91.   (princ "X,Y不同比例缩放, 命令:XSC")
  92. )

回复 支持 1 反对 0

使用道具 举报

999999
发表于 2020-9-11 11:49 | 显示全部楼层
支持支持，谢谢楼主的话题，谢谢各位大神的讨论
回复 支持 反对

使用道具 举报

自贡黄明儒
发表于 2014-6-23 20:15 来自手机 | 显示全部楼层
做成块，插入时不同比例，然后炸开

点评

李青松
他那个高级一些， 可以放在矩形框里，在里面点一下，或者是框选。  发表于 2014-6-25 13:41

评分

参与人数 1金钱 +20 收起 理由
bzhjl + 20 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

李青松
 楼主| 发表于 2014-6-25 15:57 | 显示全部楼层
他那个高级一些， 可以放在矩形框里，在里面点一下，或者是框选。
回复 支持 反对

使用道具 举报

自贡黄明儒
发表于 2014-6-25 20:44 来自手机 | 显示全部楼层
李青松 发表于 2014-6-25 15:57
他那个高级一些， 可以放在矩形框里，在里面点一下，或者是框选。

那你就用高飞鸟的矩阵
回复 支持 反对

使用道具 举报

gcho
发表于 2014-6-26 09:20 | 显示全部楼层
  1. ;;; ************动态缩放缩放实体***********************
  2. (defun C:XYSC(/ bp ss xscal yscal entL)

  4.   (defun errexit (s)
  5.     (princ "\nError:  ")
  6.     (princ s)
  7.     (restore)
  8.   )

  10.   (defun restore ()
  11.     (setvar "CMDECHO" (car oldvar))
  12.     (setq *error* olderr)
  13.     (princ)
  14.   )
  15.   
  16. (defun MAKEUNBLOCK (ss ip / tmp errexit mbx BLAYER)

  18.   (setq T (not nil))
  19.   (setq olderr  *error*
  20.         *error* errexit
  21.   )
  22.   (setq oldvar
  23.     (list
  24.       (getvar "CMDECHO")
  25.     )
  26.   )
  27.   (setvar "CMDECHO" 0)
  28.   (terpri)
  29.   (if BLAYER  
  30.     (command "._LAYER"
  31.       (if (tblsearch "LAYER" BLAYER) "_S" "_M")
  32.       BLAYER
  33.       ""
  34.     )
  35.   )
  36.   (if (and ip ss)
  37.     (progn
  38.       (entmake (list
  39.         (cons '0 "BLOCK")
  40.         (cons '2 "*U")
  41.         (cons '70 1)
  42.         (cons '10 ip)
  43.       ))
  44.       (setq cnt (sslength ss))
  45.       (while (>= (setq cnt (1- cnt)) 0)
  46.         (setq tmp (ssname ss cnt))
  47.         (entmake (setq el (entget tmp)))
  48.         (if (> (cdr (assoc 66 el)) 0)
  49.           (while
  50.             (/= "SEQEND"
  51.               (cdr
  52.                 (assoc 0
  53.                   (entmake (setq el (entget (entnext (cdr (assoc -1 el))))))
  54.                 )
  55.               )
  56.             )
  57.           )
  58.         )
  59.         (entdel tmp)
  60.       )
  61.       (setq tmp (entmake (list (cons '0 "ENDBLK"))))
  62.       (entmake (list
  63.         (cons '0 "INSERT")
  64.         (cons '2 tmp)
  65.         (cons '10 ip)
  66.       ))
  67.     )
  68.   )  
  69.   (restore)
  70. )

  72.   (setq ss (ssget))    ;;; 选择缩放实体
  73.   (if ss
  74.     (progn
  75.       (setvar "cmdecho" 0)
  76.       (setq bp (getpoint "缩放基准点 (<0,0,0>): "))
  77.       (if (not bp) (setq bp (list 0 0 0)))
  78.       (setq px1 (getpoint bp "\n X端点："))
  79.       (setq px2 (getpoint px1 "\n X端点移动到："))
  80.       (setq xscal (/ (distance px2 bp) (distance px1 bp)))
  81.       (setq py1 (getpoint bp "\n Y端点："))
  82.       (setq py2 (getpoint py1 "\n Y端点移动到："))
  83.       (setq yscal (/ (distance py2 bp) (distance py1 bp)))
  84.       (MAKEUNBLOCK ss bp)
  85.       (setq entL (entget (entLast))
  86.     entL (subst (cons 41 xscal) (assoc 41 entL) entL)
  87.     entL (subst (cons 42 yscal) (assoc 42 entL) entL)
  88.       )
  89.       (entmod entL)
  90.       (command "_explode" "l" "")
  91.       (princ)
  92.     )
  93.   )
  94.   (princ "X,Y不同比例缩放, 命令:XYSC")
  95. )


回复 支持 反对

使用道具 举报

李青松
 楼主| 发表于 2014-6-26 10:56 | 显示全部楼层
gcho 发表于 2014-6-26 09:21

程序很好，谢谢
回复 支持 反对

使用道具 举报

龙吟小调
发表于 2014-7-27 17:44 | 显示全部楼层
gcho 发表于 2014-6-26 09:21

这两程序都不实用，动态的要缩放的图原点和缩放尺寸矩行框原点重和才行，静态的要输入比例因子，提个小建议，动态的指定基点后用鼠标点下X Y的端点后，直接鼠标在要缩放的矩形框上找基点和X Y的端点即可，静态的参考原图的基点后可以直接输入具体尺寸更直观
回复 支持 反对

使用道具 举报

xyp1964
发表于 2014-7-27 20:42 | 显示全部楼层

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

恕放之生命
发表于 2014-7-30 17:06 | 显示全部楼层
学习一下，谢谢分享。
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-27 12:24 , Processed in 0.320659 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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