你好
我收到了那些有1分钟空闲时间的人的请求,他们会伸出援助之手。
只按“对象捕捉”工具栏上的按钮!
因为它得到不同的值在Autocad的不同会话中。
1.附加的运行例程:
- (defun C:zzz (/ cd gr vt) ; 26 . 04 . 2013 .
- (princ "\n C:zzz : START : V : 26 . 04 . 2013 ;\n AutoCAD Version : ")
- (princ (getvar "acadver"))
- (princ "\n Select a Button of 'OBJECT SNAP' Toolbar : < Pick > ; Enter = STOP : ")
- (while (and (not (member (setq gr (grread T 15 0) vt (cadr gr) cd (car gr)) '(3 25)) )
- (not (member vt '(13 32)) ) )
- (if (/= cd 5) (progn (princ "\n ") (princ gr) (princ " ;") ) )
- ) ;_ end of wh
- (princ "\n C:zzz : END ;")
- (princ)
- ) ;_ end of defun
2.并发布结果:
- C:zzz : START : V : 26 . 04 . 2013 ;
- AutoCAD Version : 18.2s (LMS Tech)
- Select a Button of 'OBJECT SNAP' Toolbar : < Pick > ; Enter = STOP :
- (11 1471) ;
- (11 1472) ;
- (11 1474) ; EndPoint
- (11 1475) ; MidPoint
- (11 1476) ;
- (11 1477) ;
- (11 1478) ; Center
- (11 1480) ;
- (11 1481) ;
- (11 1482) ;
- (11 1484) ;
- (11 1485) ;
- (11 1486) ;
- (11 1487) ;
- (11 1489) ;
- (11 1490) ;
- (11 1492) ; Osnap
- C:zzz : END ;
非常感谢您抽出时间! |