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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 【KAIXIN】----通用函数,跟贴伪源码
1 ...45678910111213... 22下一页
返回列表 发新帖
楼主: 【KAIXIN】

【KAIXIN】----通用函数,跟贴伪源码

     关闭 [复制链接]
【KAIXIN】
 楼主| 发表于 2012-11-24 08:06:39 | 显示全部楼层
  2. ;尺寸标注值累加(文本写入)，作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持

  5. (DEFUN C:XX (/ SS X NUM S1 T42 T1 HH PT)
  6. (KX-COMA)
  7. (KX-princA "尺寸标注值累加(文本写入)")
  8.       (KX-PRINC "标注对象")
  9.   (if (setq ss (ssget '((0 . "*DIMENSION"))))
  10.     (progn
  11.       (setq x        -1
  12.             num        0.0
  13.       )
  14.       (repeat (sslength ss)
  15.         (setq s1  (ssname ss (setq x (1+ x)))
  16.               t42 (KX-get-dxf 42 s1)
  17.               t1  (KX-get-dxf 1 s1)
  18.         )
  19.         (if (= t1 "")
  20.           (setq num (+ num t42))
  21.           (setq num (+ num (distof t1)))
  22.         )
  23.       )
  24.       (if
  25.          (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5)
  26.                pt (KX-point 1 "" "插入点" PT nil))
  27.         (KX-Text 5 pt hh 0 (rtos num 2 2))
  28.       )
  29.     )
  30.   )
  31. (KX-COMB)
  32. )
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-11-25 07:43:25 | 显示全部楼层
  2. ;尺寸值缩放比例，作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持
  4. (DEFUN C:XX (/ NO1 SS I S1 TX TX1)
  5. (KX-COMA)
  6. (KX-princA "尺寸值缩放比例")
  7.   (setq no1 (KX-dist 7 "" "尺寸值缩放比例" no1 nil 2)
  8.         ss  (ssget '((0 . "*DIMENSION")))
  9.         i   -1
  10.   )
  11.   (while (setq s1 (ssname ss (setq i (1+ i))))
  12.     (setq tx (KX-get-dxf 42 s1)
  13.           tx1 (rtos (* tx no1) 2 2)
  14.     )
  15.     (KX-PUT-DXF s1 1 tx1)
  16.   )
  17. (KX-COMB)
  18. )
回复 支持 反对

使用道具 举报

simpleye
发表于 2012-11-25 09:51:32 | 显示全部楼层
楼主，贴出源代码啊

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:54
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-11-26 09:31:26 | 显示全部楼层
  2. ;尺寸数值增减,作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持
  4. (defun c:XX( / i no1 s1 ss)
  5. (KX-COMA)
  6. (KX-princA "尺寸数值增减")
  7.   (setq NO1 (KX-REAL 1 "" "增减数值" NO1 2))
  8.    (KX-princ "尺寸标注")
  9.   (setq ss (ssget '((0 . "DIMENSION")))
  10.         i  -1
  11.   )
  12. (while (setq s1 (ssname ss (setq i (1+ i))))
  13.    (KX-PUT-DXF s1 1 (rtos (+ (KX-GET-dxf 42 s1) no1) 2 0))
  14.   )
  15. )
回复 支持 反对

使用道具 举报

yanshengjiang
发表于 2012-11-26 22:27:57 | 显示全部楼层
这个不顶那顶什么呢？

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:54
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-11-28 09:26:16 | 显示全部楼层
  2. ;批量坐标改原点，作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持
  4. (DEFUN C:XX ( / i nori ss v1)
  5. (KX-COMA)
  6. (KX-princA "批量坐标改原点")
  7.   (setq v1 (getvar "ucsname"))
  8.   (command "ucs" "w")
  9.   (setq nori (getpoint "\n-->请指定新原点："))
  10.   (KX-PRINC "需要关联新原点的坐标尺寸")
  11.   (setq ss (ssget '((0 . "DIMENSION")
  12.              (-4 . "<OR")
  13.              (70 . 38)
  14.              (70 . 102)
  15.              (-4 . "OR>")
  16.             ))
  17.          i  -1
  18.   )
  19.    (KX-PUT-DXF SS 10 nori)
  20.   (command "ucs" "r" v1)
  21. (KX-COMB)
  22. )
回复 支持 反对

使用道具 举报

FANGZHENG158
发表于 2012-11-28 12:20:55 | 显示全部楼层
来学习一下

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:54
回复 支持 反对

使用道具 举报

bikeboy
发表于 2012-11-28 16:39:01 | 显示全部楼层
不是个帮助吗？  怎么都是是vlx呢？

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:55
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-12-1 09:41:52 | 显示全部楼层
  2. ;弧长标注，作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持
  4. (defun c:XX( / lst s1)
  5. (KX-COMA)
  6. (KX-princA "弧长标注")
  7. (foreach lst '(("dimblk" ".")
  8.                 ("dimblk1" ".")
  9.                 ("dimblk2" ".")
  10.                 ("DIMASZ" 10)
  11.                )
  12.       (setvar (eval (CAR lst))(CADR lst))
  13. )
  14.   (setq s1 (KX-GET-entsel '((0 . "ARC")) "圆弧"))
  15.   (princ "\n弧长标注位置: ")
  16.   (command "dimangular" s1 pause)
  17.   (KX-PUT-DXF (entlast) 1 (strcat "弧长：" (rtos (KX-GET-LEN (CAR s1)))))
  18. (KX-COMB)
  19. )
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-12-3 10:09:23 | 显示全部楼层
需要通用函数源码者，请联系作者！QQ：295963716  手机：13620210858

点评

Gu_xl
呵呵，连手机都公布了！不怕骚扰？  发表于 2012-12-3 11:04
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-4-21 12:40 , Processed in 0.157937 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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