明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: jh1005

[源码] 小笨智能中心线v1.4(2019-12-29更新)

    [复制链接]
发表于 2016-2-26 11:58:44 | 显示全部楼层
感谢很聪明的小笨
发表于 2016-4-9 15:21:30 | 显示全部楼层
好东西感谢分享
发表于 2016-6-29 11:41:37 | 显示全部楼层
cad2016 提示小笨智能中心线v1.3,命令:ce
命令: CE
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]: *取消*
请哪位大侠给补充一下

点评

这是高版本使用command建层的出错,改为vla代码了,请试试能不能用。  发表于 2019-12-29 17:52
发表于 2016-7-27 11:40:24 来自手机 | 显示全部楼层
可惜了2015报错。
发表于 2016-7-29 01:44:19 | 显示全部楼层
在中心画个圆点 怎能么画  你的画线生成速度很快 我加个画中心圆就显得有点慢 我用的是最基本的LISP来画的  
发表于 2016-7-29 01:46:28 | 显示全部楼层
                (fy-LineFormat (makeline
                  (polar p2 (angle p2 p4) (+ (distance p2 p4) ll))
                  (polar p4 (angle p4 p2) (+ (distance p2 p4) ll))
                 ) lay lt sc3 col)

; (setq L13 (distance p1 p3))
  ;;取得两点 长度
; (setq #ang13 (angle p1 p3))
  ;;取得两点角度
;  (setq H13 (* L13 0.5))
  ;;取得两点半长
;   (setq PM (polar P1 #ang13 H13))
    ;;得到打断点
;(command "circle" pm "D" "2" "")       



这样太慢了 用你的函数应该会快点 但你的函数看不懂    你的可以将圆画在5层 我的就不能     
发表于 2017-10-12 21:34:48 | 显示全部楼层
支持源码,顶一个
发表于 2017-10-13 14:15:35 | 显示全部楼层
看一下包容盒!
发表于 2017-12-3 21:33:28 | 显示全部楼层
小笨太谦虚了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-16 06:38 , Processed in 0.166307 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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