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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

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

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

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

点评

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

使用道具 举报

来武影
发表于 2012-11-21 12:56:19 | 显示全部楼层
非常感谢楼主的分享!谢谢

点评

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

使用道具 举报

caoliu023
发表于 2012-11-21 14:22:33 | 显示全部楼层
参考一下，强烈支撑，好东西就是要顶

点评

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

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-11-21 14:48:55 | 显示全部楼层
  2. ;时间名建块
  3. (defun c:XX(/ ss pt x2)
  4. (KX-COMA)
  5. (KX-princA "时间名建块")
  6.       (KX-PRINC 加入块的对象")
  7. (WHILE
  8.   (setq ss (ssget))
  9.   (setq        pt  (getpoint"\n-->请指定基点: ")
  10.         x2 (rtos (* (getvar "cdate") 1000000) 2 0)
  11.   )
  12.   (KX-MK-BLOCK-INSERT ss pt x2)
  13. )
  14. (KX-COMB)
  15. )
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 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. )
复制代码
回复 支持 反对

使用道具 举报

ejingsong
发表于 2012-11-22 10:46:18 | 显示全部楼层
11111111111111111

点评

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

使用道具 举报

poople
发表于 2012-11-22 11:39:31 | 显示全部楼层
是好东西哦，

点评

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

使用道具 举报

【KAIXIN】
 楼主| 发表于 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. )  
复制代码
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-11-22 15:13:25 | 显示全部楼层
  2. ;标注后面加上(T)作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持
  4. (DEFUN C:XX (/ SS X S1 TX)
  5. (KX-COMA)
  6. (KX-princA "标注后面加上(T)")
  7.       (KX-PRINC "标注对象")
  8.   (while(setq ss  (SSGET":s" '((0 . "*DIMENSION"))))
  9.         (setq X -1)
  10.     (while (setq s1 (ssname ss (setq X (1+ X))))
  11.        (setq tx (rtos (KX-get-dxf 42 s1)2 2))
  12.        (KX-PUT-DXF s1 1 (strcat tx "(T)"))
  13.     )
  14.    )
  15. (KX-COMB)
  16. )
回复 支持 反对

使用道具 举报

【KAIXIN】
 楼主| 发表于 2012-11-22 18:14:36 | 显示全部楼层
  2. ;(改块名)无名转有名  作者：【KAIXIN】，QQ：295963716
  3. ;本程序需要KAIXIN通用函数的支持
  4. (defun C:XX (/ obj bkn)
  5. (KX-COMA)
  6. (KX-princA "(改块名)无名转有名")
  7.   (setq obj (KX-E2O (CAR (KX-Get-Entsel '((0 . "INSERT")(2 . "`**")) "无名块"))));转为VLA对象
  8.   (setq bkn (KX-str 1 "块名" bkn nil nil))
  9.   (KX-Wm2Insert obj bkn);改块名
  10. (KX-COMB)
  11. )
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-6 09:54 , Processed in 0.176492 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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