明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 544|回复: 8

[提问] 孔分类不能统一请大家帮忙解决下

[复制链接]
发表于 2016-9-28 15:54 | 显示全部楼层 |阅读模式
本帖最后由 tang87 于 2016-9-28 16:04 编辑

这个源码怎么不能把孔统一分类,请高手下载DWG文件试下。
帮忙解决下。感谢!!!

(defun c:zcc ()
(setq os  (getvar "osmode"))
(setvar "osmode"  0)
(princ "\n请选择要进行统计的圆")
(setq ss (ssget (list (cons 0 "CIRCLE")))
    #FF (getpoint "\n 指定放置列表基点:")
    si 0 tx 65 px (car #FF) py (cadr #FF) li '() lii 0)
(repeat (sslength ss)
(setq cs (ssname ss si) ce (entget cs)
        cp (cdr (assoc 10 ce))
        cr (cdr (assoc 40 ce)))
(if (setq lst (assoc cr li))
    (setq ct (nth 1 lst) li (subst (list cr ct (1+ (nth 2 lst))) lst li))
    (setq ct tx tx (1+ tx) li (cons (list cr ct 1) li))
)
(command "_.text" (polar cp (/ pi 4) (+ cr 1)) 3 0 (chr ct) "_.chprop" "l" "" "p" "c" 2 "")
(setq si (1+ si))
)
(foreach l li
(setq cr (nth 0 l) ct (nth 1 l) cn (nth 2 l)
        cpW (list (+ px 16) (+ py (* lii 6)))
        cp1W (list (+ px -5) (+ py (* lii 6)))
        cp2W (list (+ px 39.2) (+ py (* lii 6)))
        cp3W (list (+ px -13.6) (+ py (* lii 6)))
        cp (polar cpW (* pi 1.5) -1)
        cp1 (polar cp1W (* pi 1.5) -1)
        cp2 (polar cp2W (* pi 1.5) -1)
        cp3 (polar cp3W (* pi 1.5) -1)
        cp4 (polar cp2W (* pi 1.5) -8)
        ct1 (- ct 64))
    (command "_.text" "j" "C" cp3 4 "" (rtos ct1 5)
    "_.text" "j" "C" cp1 4 0 (strcat (chr ct))
    "_.chprop" "l" "" "p" "c" 2 ""
    "_.text" "j" "C" cp 4 0 (strcat "%%C" (rtos (* cr 2) 2 2))
    "_.chprop" "l" "" "p" "c" 2 ""
    "_.text" "j" "C" cp2 4 0 (strcat (itoa cn))
    "_.chprop" "l" "" "p" "c" 2 "")
(setq lii (1+ lii))
)
(command "_.text" "j" "C" cp4 4 0 (strcat "总数=" (itoa (sslength ss)) "个"))
(foreach l li
    (setq #FF (polar #FF (* pi 0.5) (* 6 1)))
    (command "_.line"
            (polar #FF pi (* 4 4.5))
            (polar #FF 0 (* 4 12))
            ""
    )
(command "_.chprop" "l" "" "p" "c" 1 ""
        "_.ARRAY" (entlast) "" "R" (+ (length R1_LIST) 2) "" (* -2 3)
        "_.line" (polar #FF pi (* 4 4.5)) (cdr (assoc 10 (entget (entlast)))) ""
    "_.chprop" "l" "" "p" "c" 1 "")
    (setq LL (entlast))
    (command "_.COPY" LL "" #FF (polar #FF 0 (* 4 4.3))
        "_.COPY" LL "" #FF (polar #FF 0 (* 4 12.5))
        "_.COPY" LL "" #FF (polar #FF 0 (* 4 16.5))
        "_.COPY" LL "" #FF (polar #FF 0 (* 4 2.2)))
(setq lii (1+ lii))
)
(setvar "osmode"  os)
(PRINC)
)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

视频tysurl.com/tsOg6K 海外直播tysurl.com/zsOW75 某省长说:“请全省人民对我严格监督。” 网友评论:人民拿什么监督你?报纸归你管,电视归你管,网络归你管,我这条信息都归你们管,说删就删,从来也没跟我商量过   发表于 2016-10-5 08:50
发表于 2016-9-28 17:10 | 显示全部楼层

(setq lst (assoc cr li))
这个 cr 若非整数时 很难确保不出错
请查 ASSOC 的使用帮助
 楼主| 发表于 2016-9-28 17:27 | 显示全部楼层
有没有方法解决呀!
发表于 2016-9-28 17:40 | 显示全部楼层
Ref:
http://bbs.mjtd.com/thread-60989-2-1.html

更多请自行 Search...
发表于 2016-9-30 23:49 | 显示全部楼层
本帖最后由 LPACMQ 于 2016-10-1 01:16 编辑


私聊qq249479598

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2016-10-1 00:08 | 显示全部楼层
本帖最后由 cable2004 于 2016-10-1 02:32 编辑

不知道是不是这样?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 +2 收起 理由
xyp1964 + 2 赞一个!

查看全部评分

 楼主| 发表于 2016-10-5 14:59 | 显示全部楼层
可以发原码发给我吗?谢谢!!!
 楼主| 发表于 2016-10-5 15:05 | 显示全部楼层
cable2004 发表于 2016-10-1 00:08
不知道是不是这样?

是这样的,可以发下源码给我吗?多谢!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 23:46 , Processed in 0.201494 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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