明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 【KAIXIN】

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

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

  3. (DEFUN C:XX (/ SS X NUM S1 T42 T1 HH PT)
  4. (KX-COMA)
  5. (KX-princA "尺寸标注值累加(文本写入)")
  6.       (KX-PRINC "标注对象")
  7.   (if (setq ss (ssget '((0 . "*DIMENSION"))))
  8.     (progn
  9.       (setq x        -1
  10.             num        0.0
  11.       )
  12.       (repeat (sslength ss)
  13.         (setq s1  (ssname ss (setq x (1+ x)))
  14.               t42 (KX-get-dxf 42 s1)
  15.               t1  (KX-get-dxf 1 s1)
  16.         )
  17.         (if (= t1 "")
  18.           (setq num (+ num t42))
  19.           (setq num (+ num (distof t1)))
  20.         )
  21.       )
  22.       (if
  23.          (setq hh (KX-dist 7 "" "文字高度" hh nil 2.5)
  24.                pt (KX-point 1 "" "插入点" PT nil))
  25.         (KX-Text 5 pt hh 0 (rtos num 2 2))
  26.       )
  27.     )
  28.   )
  29. (KX-COMB)
  30. )
 楼主| 发表于 2012-11-25 07:43:25 | 显示全部楼层
  1. ;尺寸值缩放比例,作者:【KAIXIN】,QQ:295963716
  2. ;本程序需要KAIXIN通用函数的支持
  3. (DEFUN C:XX (/ NO1 SS I S1 TX TX1)
  4. (KX-COMA)
  5. (KX-princA "尺寸值缩放比例")
  6.   (setq no1 (KX-dist 7 "" "尺寸值缩放比例" no1 nil 2)
  7.         ss  (ssget '((0 . "*DIMENSION")))
  8.         i   -1
  9.   )
  10.   (while (setq s1 (ssname ss (setq i (1+ i))))
  11.     (setq tx (KX-get-dxf 42 s1)
  12.           tx1 (rtos (* tx no1) 2 2)
  13.     )
  14.     (KX-PUT-DXF s1 1 tx1)
  15.   )
  16. (KX-COMB)
  17. )
发表于 2012-11-25 09:51:32 | 显示全部楼层
楼主,贴出源代码啊

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:54
 楼主| 发表于 2012-11-26 09:31:26 | 显示全部楼层
  1. ;尺寸数值增减,作者:【KAIXIN】,QQ:295963716
  2. ;本程序需要KAIXIN通用函数的支持
  3. (defun c:XX( / i no1 s1 ss)
  4. (KX-COMA)
  5. (KX-princA "尺寸数值增减")
  6.   (setq NO1 (KX-REAL 1 "" "增减数值" NO1 2))
  7.    (KX-princ "尺寸标注")
  8.   (setq ss (ssget '((0 . "DIMENSION")))
  9.         i  -1
  10.   )
  11. (while (setq s1 (ssname ss (setq i (1+ i))))
  12.    (KX-PUT-DXF s1 1 (rtos (+ (KX-GET-dxf 42 s1) no1) 2 0))
  13.   )
  14. )
发表于 2012-11-26 22:27:57 | 显示全部楼层
这个不顶那顶什么呢?

点评

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

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:54
发表于 2012-11-28 16:39:01 | 显示全部楼层
不是个帮助吗?  怎么都是是vlx呢?

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:55
 楼主| 发表于 2012-12-1 09:41:52 | 显示全部楼层
  1. ;弧长标注,作者:【KAIXIN】,QQ:295963716
  2. ;本程序需要KAIXIN通用函数的支持
  3. (defun c:XX( / lst s1)
  4. (KX-COMA)
  5. (KX-princA "弧长标注")
  6. (foreach lst '(("dimblk" ".")
  7.                 ("dimblk1" ".")
  8.                 ("dimblk2" ".")
  9.                 ("DIMASZ" 10)
  10.                )
  11.       (setvar (eval (CAR lst))(CADR lst))
  12. )
  13.   (setq s1 (KX-GET-entsel '((0 . "ARC")) "圆弧"))
  14.   (princ "\n弧长标注位置: ")
  15.   (command "dimangular" s1 pause)
  16.   (KX-PUT-DXF (entlast) 1 (strcat "弧长:" (rtos (KX-GET-LEN (CAR s1)))))
  17. (KX-COMB)
  18. )
 楼主| 发表于 2012-12-3 10:09:23 | 显示全部楼层
需要通用函数源码者,请联系作者!QQ:295963716  手机:13620210858

点评

呵呵,连手机都公布了!不怕骚扰?  发表于 2012-12-3 11:04
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 23:00 , Processed in 0.180004 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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