test

illcyt

2. [code=lisp](defun c:5()
   
3. (command "_.scale" (ssget) "" (getpoint "\n选择基点进行0.5倍缩放:") 0.5 "")
   
4. )
   
5. (defun c:55 ()
   
6. (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
   
7. 
   
8. (setq ss (ssget))
   
9. (setq sslist (mysort ss 3200 1800 nil "xy"))
   
10. (foreach mid-lst sslist
    
11. (setq pt1 (dxf 10 (car mid-lst)))
    
12. (command "_.scale")
    
13. (foreach en  mid-lst
    
14. (command en )
    
15. )
    
16. (command "" pt1 0.5)
    
17. )
    
18. (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    
19. )
    
20. (defun c:300 ()
    
21. (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
    
22. (princ "\n选择字全改字高为300")
    
23. (setq ss (ssget (list (cons 0 "TEXT"))))
    
24. (setq sslist (wjm_ss2lst ss))
    
25. (foreach en sslist
    
26. (entmod (ch-en (cons 40 300) en))
    
27. )
    
28. (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    
29. )
    
30. (defun c:500 ()
    
31. (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
    
32. (princ "\n选择字全改字高为500")
    
33. (setq ss (ssget (list (cons 0 "TEXT"))))
    
34. (setq sslist (wjm_ss2lst ss))
    
35. (foreach en sslist
    
36. (entmod (ch-en (cons 40 500) en))
    
37. )
    
38. (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    
39. )
    
40. (defun c:tssd ()
    
41. (if (null (tblsearch "style" "tssd"))
    
42. (command "style" "tssd" "tssdeng.shx,tssdchn.shx" 300 0.7 0 "N" "N" "N")
    
43. )
    
44. (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
    
45. (princ "\n选择字全改字样式为tssd")
    
46. (setq ss (ssget (list (cons 0 "TEXT"))))
    
47. (setq sslist (wjm_ss2lst ss))
    
48. (foreach en sslist
    
49. (entmod (ch-en (cons 7 "tssd") en))
    
50. )
    
51. (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    
52. )
    
53. (defun c:tssd2 ()
    
54. (if (null (tblsearch "style" "tssd"))
    
55. (command "style" "tssd2" "tssdeng2.shx,tssdchn.shx" "0" "0.7" "0" "N" "N" "N")
    
56. )
    
57. (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
    
58. (princ "\n选择字全改字样式为tssd")
    
59. (setq ss (ssget (list (cons 0 "TEXT"))))
    
60. (setq sslist (wjm_ss2lst ss))
    
61. (foreach en sslist
    
62. (entmod (ch-en (cons 7 "tssd2") en))
    
63. )
    
64. (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    
65. )
    
66. 
    
67. (defun c:zz()(sendkeys "^{TAB}"))
    
68. 
    
69. (defun c:tchx(/ mid) (setq mid (ssget (list (cons 0 "TCH*")))) );_炸开天正的图.
    
70. 
    
71. (defun c:vb() (princ "\n移动上一个选择集")(command "_.move" "p" ""))
    
72. (defun c:cb() (princ "\n复制上一个选择集")(command "_.copy" "p" ""))
    
73. (defun c:eb() (princ "\n删除上一个选择集")(command "_.erase" "p" ""))
    
74. (defun c:br ()
    
75. (command)
    
76. (princ "\n选择要切断的物体:")
    
77. (while (setq mid (entsel))
    
78. (setq old-osmode (getvar "osmode"))
    
79. (command "_.break"
    
80.    mid
    
81.    "F"
    
82.    (setq pt1 (getpoint "\n输入切断点:"))
    
83.    (progn (setvar "osmode" 0) pt1)
    
84. )
    
85. (setvar "osmode" old-osmode)
    
86. )
    
87. )
    
88. 
    
89. (defun c:mg()
    
90. (princ "\n选择物体创建无名组:")
    
91. (command "-group" "" "*" "" (ssget) "")
    
92. )
    
93. (defun c:mb()
    
94. (init_bonus_error
    
95. (list(list "REGENMODE" 0 "PICKSTYLE" 1)T)
    
96. )
    
97. (print "请选择加入块的对象:")
    
98. (setq ss1 (ssget))
    
99. (setq ptlast (dxf 10(ssname ss1 0)))
    
100. (setq blockname (strcat "wjm" (rtos (abs(car ptlast)) 2 0)(rtos (abs(cadr ptlast)) 2 0)))
     
101. (if (tblsearch "BLOCK" blockname)
     
102. (command "block" blockname "Y" ptlast ss1 "")
     
103. (command "block" blockname ptlast ss1 "")
     
104. )
     
105. (command "insert" blockname ptlast "" "" "")
     
106. (princ (strcat "\n新建块名为:" blockname))
     
107. (restore_old_error)
     
108. )
     
109. (defun c:vg()
     
110. (init_bonus_error
     
111. (list(list "pickbox" 12 "PICKSTYLE" 1)T)
     
112. )
     
113. (princ "\n选择物体组移动:")
     
114. (command "_.move" pause pause pause pause)
     
115. (restore_old_error)
     
116. )
     
117. (defun c:cg()
     
118. (init_bonus_error
     
119. (list(list "pickbox" 12 "PICKSTYLE" 1)T)
     
120. )
     
121. (princ "\n选择物体组复制:")
     
122. (command "_.copy" pause pause pause pause)
     
123. (restore_old_error)
     
124. )

[code=lisp](defun c:5()<br /> (command "_.scale" (ssget) "" (getpoint "\n选择基点进行0.5倍缩放:") 0.5 "")<br /> )<br /> (defun c:55 ()<br /> (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))<br /> <br /> (setq ss (ssget))<br /> (setq sslist (mysort ss 3200 1800 nil "xy"))<br /> (foreach mid-lst sslist<br /> (setq pt1 (dxf 10 (car mid-lst)))<br /> (command "_.scale")<br /> (foreach en  mid-lst<br /> (command en )<br /> )<br /> (command "" pt1 0.5)<br /> )<br /> (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br /> (defun c:300 ()<br /> (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))<br /> (princ "\n选择字全改字高为300")<br /> (setq ss (ssget (list (cons 0 "TEXT"))))<br /> (setq sslist (wjm_ss2lst ss))<br /> (foreach en sslist<br /> (entmod (ch-en (cons 40 300) en))<br /> )<br /> (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br /> (defun c:500 ()<br /> (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))<br /> (princ "\n选择字全改字高为500")<br /> (setq ss (ssget (list (cons 0 "TEXT"))))<br /> (setq sslist (wjm_ss2lst ss))<br /> (foreach en sslist<br /> (entmod (ch-en (cons 40 500) en))<br /> )<br /> (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br /> (defun c:tssd ()<br /> (if (null (tblsearch "style" "tssd"))<br /> (command "style" "tssd" "tssdeng.shx,tssdchn.shx" 300 0.7 0 "N" "N" "N")<br /> )<br /> (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))<br /> (princ "\n选择字全改字样式为tssd")<br /> (setq ss (ssget (list (cons 0 "TEXT"))))<br /> (setq sslist (wjm_ss2lst ss))<br /> (foreach en sslist<br /> (entmod (ch-en (cons 7 "tssd") en))<br /> )<br /> (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br /> (defun c:tssd2 ()<br /> (if (null (tblsearch "style" "tssd"))<br /> (command "style" "tssd2" "tssdeng2.shx,tssdchn.shx" "0" "0.7" "0" "N" "N" "N")<br /> )<br /> (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))<br /> (princ "\n选择字全改字样式为tssd")<br /> (setq ss (ssget (list (cons 0 "TEXT"))))<br /> (setq sslist (wjm_ss2lst ss))<br /> (foreach en sslist<br /> (entmod (ch-en (cons 7 "tssd2") en))<br /> )<br /> (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br /> <br /> (defun c:zz()(sendkeys "^{TAB}"))<br /> <br /> (defun c:tchx(/ mid) (setq mid (ssget (list (cons 0 "TCH*")))) );_炸开天正的图.<br /> <br /> (defun c:vb() (princ "\n移动上一个选择集")(command "_.move" "p" ""))<br /> (defun c:cb() (princ "\n复制上一个选择集")(command "_.copy" "p" ""))<br /> (defun c:eb() (princ "\n删除上一个选择集")(command "_.erase" "p" ""))<br /> (defun c:br ()<br /> (command) <br /> (princ "\n选择要切断的物体:")<br /> (while (setq mid (entsel)) <br /> (setq old-osmode (getvar "osmode"))<br /> (command "_.break"<br />    mid<br />    "F"<br />    (setq pt1 (getpoint "\n输入切断点:"))<br />    (progn (setvar "osmode" 0) pt1)<br /> )<br /> (setvar "osmode" old-osmode)<br /> )<br /> )<br /> <br /> (defun c:mg()<br /> (princ "\n选择物体创建无名组:")<br /> (command "-group" "" "*" "" (ssget) "")<br /> )<br /> (defun c:mb()<br /> (init_bonus_error <br /> (list(list "REGENMODE" 0 "PICKSTYLE" 1)T)<br /> ) <br /> (print "请选择加入块的对象:")<br /> (setq ss1 (ssget))<br /> (setq ptlast (dxf 10(ssname ss1 0)))<br /> (setq blockname (strcat "wjm" (rtos (abs(car ptlast)) 2 0)(rtos (abs(cadr ptlast)) 2 0)))<br /> (if (tblsearch "BLOCK" blockname)<br /> (command "block" blockname "Y" ptlast ss1 "")<br /> (command "block" blockname ptlast ss1 "")<br /> )<br /> (command "insert" blockname ptlast "" "" "")<br /> (princ (strcat "\n新建块名为:" blockname))<br /> (restore_old_error)<br /> )<br /> (defun c:vg()<br /> (init_bonus_error <br /> (list(list "pickbox" 12 "PICKSTYLE" 1)T)<br /> )<br /> (princ "\n选择物体组移动:")<br /> (command "_.move" pause pause pause pause)<br /> (restore_old_error)<br /> )<br /> (defun c:cg()<br /> (init_bonus_error <br /> (list(list "pickbox" 12 "PICKSTYLE" 1)T)<br /> )<br /> (princ "\n选择物体组复制:")<br /> (command "_.copy" pause pause pause pause)<br /> (restore_old_error)<br /> )

[/code]
以上为测试代码，上传备份之