求孔分类与表格的源码（lisp）格式的文件

tang87

此方式的孔分类与孔分类BOM是对孔多的是常用的。请大家帮忙做个lisp格式源码文件。多谢了。

刚开始

ymcui 发表于 2016-8-4 14:04

你好，我下载使用怎么提示Application Error: 0 :- 输入的字符串有缺陷ADS 请求错误.

zhangcan0515

学习了提取直径

GNJLISP

看看这个我一直在用

tang87

是这样子的，谢谢。
可以分享或是发给我下吗？
qq1215707993

ymcui

网上有找找能找到                              

gzbccy

难道就没有螺纹孔？

tang87

有完善的更好。无论用于模具、钣金或是其它行业的工程都是方便好用的。对于孔多的用这一个命令就可以出来了。
高手人们给我分享下吧，很需要。感谢

tang87

ymcui 发表于 2016-8-3 16:07
网上有找找能找到

在网上找了好久没找到，可以分享下吗？

GNJLISP

加你Q没反应

ymcui

2. (defun c:ttt ()
   
3. (setq os  (getvar "osmode"))
   
4. (setvar "osmode"  0)
   
5. (princ "\n请选择要进行统计的圆")
   
6. (setq ss (ssget (list (cons 0 "CIRCLE")))
   
7.     #FF (getpoint "\n 指定放置列表基点:")
   
8.     si 0 tx 65 px (car #FF) py (cadr #FF) li '() lii 0)
   
9. (repeat (sslength ss)
   
10. (setq cs (ssname ss si) ce (entget cs)
    
11.         cp (cdr (assoc 10 ce))
    
12.         cr (cdr (assoc 40 ce)))
    
13. (if (setq lst (assoc cr li))
    
14.     (setq ct (nth 1 lst) li (subst (list cr ct (1+ (nth 2 lst))) lst li))
    
15.     (setq ct tx tx (1+ tx) li (cons (list cr ct 1) li))
    
16. )
    
17. (command "_.text" (polar cp (/ pi 4) (+ cr 1)) 3 0 (chr ct) "_.chprop" "l" "" "p" "c" 2 "")
    
18. (setq si (1+ si))
    
19. )
    
20. (foreach l li
    
21. (setq cr (nth 0 l) ct (nth 1 l) cn (nth 2 l)
    
22.         cpW (list (+ px 16) (+ py (* lii 6)))
    
23.         cp1W (list (+ px -5) (+ py (* lii 6)))
    
24.         cp2W (list (+ px 39.2) (+ py (* lii 6)))
    
25.         cp3W (list (+ px -13.6) (+ py (* lii 6)))
    
26.         cp (polar cpW (* pi 1.5) -1)
    
27.         cp1 (polar cp1W (* pi 1.5) -1)
    
28.         cp2 (polar cp2W (* pi 1.5) -1)
    
29.         cp3 (polar cp3W (* pi 1.5) -1)
    
30.         cp4 (polar cp2W (* pi 1.5) -8)
    
31.         ct1 (- ct 64))
    
32.     (command "_.text" "j" "C" cp3 4 "" (rtos ct1 5)
    
33.     "_.text" "j" "C" cp1 4 0 (strcat (chr ct))
    
34.     "_.chprop" "l" "" "p" "c" 2 ""
    
35.     "_.text" "j" "C" cp 4 0 (strcat "%%C" (rtos (* cr 2) 2 2))
    
36.     "_.chprop" "l" "" "p" "c" 2 ""
    
37.     "_.text" "j" "C" cp2 4 0 (strcat (itoa cn))
    
38.     "_.chprop" "l" "" "p" "c" 2 "")
    
39. (setq lii (1+ lii))
    
40. )
    
41. (command "_.text" "j" "C" cp4 4 0 (strcat "总数=" (itoa (sslength ss)) "个"))
    
42. (foreach l li
    
43.     (setq #FF (polar #FF (* pi 0.5) (* 6 1)))
    
44.     (command "_.line"
    
45.             (polar #FF pi (* 4 4.5))
    
46.             (polar #FF 0 (* 4 12))
    
47.             ""
    
48.     )
    
49. (command "_.chprop" "l" "" "p" "c" 1 ""
    
50.         "_.ARRAY" (entlast) "" "R" (+ (length R1_LIST) 2) "" (* -2 3)
    
51.         "_.line" (polar #FF pi (* 4 4.5)) (cdr (assoc 10 (entget (entlast)))) ""
    
52.     "_.chprop" "l" "" "p" "c" 1 "")
    
53.     (setq LL (entlast))
    
54.     (command "_.COPY" LL "" #FF (polar #FF 0 (* 4 4.3))
    
55.         "_.COPY" LL "" #FF (polar #FF 0 (* 4 12.5))
    
56.         "_.COPY" LL "" #FF (polar #FF 0 (* 4 16.5))
    
57.         "_.COPY" LL "" #FF (polar #FF 0 (* 4 2.2)))
    
58. (setq lii (1+ lii))
    
59. )
    
60. (setvar "osmode"  os)
    
61. (PRINC)
    
62. )

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

ymcui

我也只是在明经找的.