明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 【KAIXIN】

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

     关闭 [复制链接]
发表于 2012-11-20 23:06:21 | 显示全部楼层
给个源码多好啊

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:52
发表于 2012-11-21 12:56:19 | 显示全部楼层
非常感谢楼主的分享!谢谢

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:53
发表于 2012-11-21 14:22:33 | 显示全部楼层
参考一下,强烈支撑,好东西就是要顶

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:53
 楼主| 发表于 2012-11-21 14:48:55 | 显示全部楼层
  1. ;时间名建块
  2. (defun c:XX(/ ss pt x2)
  3. (KX-COMA)
  4. (KX-princA "时间名建块")
  5.       (KX-PRINC 加入块的对象")
  6. (WHILE
  7.   (setq ss (ssget))
  8.   (setq        pt  (getpoint"\n-->请指定基点: ")
  9.         x2 (rtos (* (getvar "cdate") 1000000) 2 0)
  10.   )
  11.   (KX-MK-BLOCK-INSERT ss pt x2)
  12. )
  13. (KX-COMB)
  14. )
 楼主| 发表于 2012-11-22 08:35:52 | 显示全部楼层
  1. ;物体中心缩放
  2. (DEFUN C:XX( / lts po ss)
  3. (KX-COMA)   
  4.   (KX-princA "物体中心缩放")
  5.   (KX-princ "框选对象")
  6. (SETQ SS (SSGET)
  7.       lts (KX-dist 7 "" "缩放比例因子" lts nil 2)
  8.        PO (KX-Get-Ss-9pt SS 5)
  9. )
  10. (KX-Sc SS PO lts)
  11. (KX-COMB)
  12. )
复制代码
发表于 2012-11-22 10:46:18 | 显示全部楼层
11111111111111111

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:53
发表于 2012-11-22 11:39:31 | 显示全部楼层
是好东西哦,

点评

通用函数全部源码,低价抛售中!  发表于 2013-1-20 10:53
 楼主| 发表于 2012-11-22 14:06:58 | 显示全部楼层
  1. ;按标注样式样板选中所有标注
  2. (DEFUN C:XX (/ S1 SS)
  3. (KX-COMA)
  4. (KX-princA "按标注样式样板选中所有标注")
  5.     (SETQ s1 (CAR (KX-GET-entsel '((0 . "DIMENSION")) "标注样板"))
  6.           SS (ssget "X" (LIST '(0 . "DIMENSION") (cons 3 (KX-get-DXF 3 s1))))
  7.      )
  8. (KX-COMB)
  9. (Sssetfirst NIL SS);选中状态
  10. )  
复制代码
 楼主| 发表于 2012-11-22 15:13:25 | 显示全部楼层
  1. ;标注后面加上(T)作者:【KAIXIN】,QQ:295963716
  2. ;本程序需要KAIXIN通用函数的支持
  3. (DEFUN C:XX (/ SS X S1 TX)
  4. (KX-COMA)
  5. (KX-princA "标注后面加上(T)")
  6.       (KX-PRINC "标注对象")
  7.   (while(setq ss  (SSGET":s" '((0 . "*DIMENSION"))))
  8.         (setq X -1)
  9.     (while (setq s1 (ssname ss (setq X (1+ X))))
  10.        (setq tx (rtos (KX-get-dxf 42 s1)2 2))
  11.        (KX-PUT-DXF s1 1 (strcat tx "(T)"))
  12.     )
  13.    )
  14. (KX-COMB)
  15. )
 楼主| 发表于 2012-11-22 18:14:36 | 显示全部楼层
  1. ;(改块名)无名转有名  作者:【KAIXIN】,QQ:295963716
  2. ;本程序需要KAIXIN通用函数的支持
  3. (defun C:XX (/ obj bkn)
  4. (KX-COMA)
  5. (KX-princA "(改块名)无名转有名")
  6.   (setq obj (KX-E2O (CAR (KX-Get-Entsel '((0 . "INSERT")(2 . "`**")) "无名块"))));转为VLA对象
  7.   (setq bkn (KX-str 1 "块名" bkn nil nil))
  8.   (KX-Wm2Insert obj bkn);改块名
  9. (KX-COMB)
  10. )
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 22:30 , Processed in 0.203309 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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