[求助]程序完善

piao1887

3. ;;程序名称：对象水平垂直程序
4. ;;执行命令：ahobj
5. ;;程序功能：将选定的对象左对齐、右对齐或对中。
6. ;;
7. ;;
8. (defun c:QD (/ selobjs oldcmdecho)
9.   (setq oldcmdecho (getvar "cmdecho"))
10.   (setvar "cmdecho" 0)
11.   (setq selobjs (ssget))
12.   (if (or (not selobjs) (= (sslength selobjs) 1))
13.     (princ "\n你必须选定两个或两个以上的对象")
14.     (process selobjs)
15.   )
16.   (setvar "cmdecho" oldcmdecho)
17.   (princ)
18. )
19. (defun process (selobjs   /     amode     apnt apnt_x
20.   apnt_y   count     objname   vlaxobj MinPoint
21.   MaxPoint  minext    maxext    ext_l ext_r
22.   ext_m   tpnt
23.         )
24.   (initget "L M R T MT B")
25.   (setq amode
26.   (getkword
27.     "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)/上对齐(T)/中间(MT)/下对齐(B)]<左对齐>:"
28.   )
29.   )
30.   (if (not amode)
31.     (setq amode "L")
32.   )
33.   (initget 1)
34.   (setq apnt (getpoint "\n选择对齐方向的对齐点："))
35.   (setq apnt_x (car apnt)
36. apnt_y (cadr apnt)
37.   )
38.   (vl-load-com)
39.   (setq count 0)
40.   (setvar "osmode" 0)
41.   (repeat (sslength selobjs)
42.     (setq objname (ssname selobjs count))
43.     (setq vlaxobj (vlax-ename->vla-object objname))
44.     (setq MinPoint (vlax-make-variant))
45.     (setq MaxPoint (vlax-make-variant))
46.     (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)
47.     (setq minext (vlax-safearray->list MinPoint))
48.     (setq maxext (vlax-safearray->list MaxPoint))
49.     (setq ext_l (car minext))
50.     (setq ext_r (car maxext))
51.     (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))
52.     (setq ext_t (cadr maxext))
53.     (setq ext_b (cadr minext))
54.     (setq ext_mt (+ (/ (abs (- ext_t ext_b)) 2) ext_b))
55.     (cond
56.       ((= amode "L")
57.        (setq tpnt (list ext_l apnt_y))
58.       )
59.       ((= amode "M")
60.        (setq tpnt (list ext_m apnt_y))
61.       )
62.       ((= amode "R")
63.        (setq tpnt (list ext_r apnt_y))
64.       )
65.       ((= amode "T")
66.        (SETQ tpnt (list apnt_x ext_t))
67.       )
68.       ((= amode "MT")
69.        (setq tpnt (list apnt_x ext_mt))
70.       )
71.       ((= amode "B")
72.        (setq tpnt (list apnt_x ext_b))
73.       )
74.     )
75.     (print tpnt)
76.     (if tpnt
77.       (command "_move" objname "" tpnt apnt)
78.     )
79.     (setq count (1+ count))
80.   )
81. )

;;程序名称：对象水平垂直程序 ;;执行命令：ahobj ;;程序功能：将选定的对象左对齐、右对齐或对中。 ;; ;; (defun c:QD (/ selobjs oldcmdecho)   (setq oldcmdecho (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setq selobjs (ssget))   (if (or (not selobjs) (= (sslength selobjs) 1))     (princ "\n你必须选定两个或两个以上的对象")     (process selobjs)   )   (setvar "cmdecho" oldcmdecho)   (princ) ) (defun process (selobjs   /     amode     apnt apnt_x   apnt_y   count     objname   vlaxobj MinPoint   MaxPoint  minext    maxext    ext_l ext_r   ext_m   tpnt         )   (initget "L M R T MT B")   (setq amode   (getkword     "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)/上对齐(T)/中间(MT)/下对齐(B)]<左对齐>:"   )   )   (if (not amode)     (setq amode "L")   )   (initget 1)   (setq apnt (getpoint "\n选择对齐方向的对齐点："))   (setq apnt_x (car apnt) apnt_y (cadr apnt)   )   (vl-load-com)   (setq count 0)   (setvar "osmode" 0)   (repeat (sslength selobjs)     (setq objname (ssname selobjs count))     (setq vlaxobj (vlax-ename->vla-object objname))     (setq MinPoint (vlax-make-variant))     (setq MaxPoint (vlax-make-variant))     (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)     (setq minext (vlax-safearray->list MinPoint))     (setq maxext (vlax-safearray->list MaxPoint))     (setq ext_l (car minext))     (setq ext_r (car maxext))     (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))     (setq ext_t (cadr maxext))     (setq ext_b (cadr minext))     (setq ext_mt (+ (/ (abs (- ext_t ext_b)) 2) ext_b))     (cond       ((= amode "L")        (setq tpnt (list ext_l apnt_y))       )       ((= amode "M")        (setq tpnt (list ext_m apnt_y))       )       ((= amode "R")        (setq tpnt (list ext_r apnt_y))       )       ((= amode "T")        (SETQ tpnt (list apnt_x ext_t))       )       ((= amode "MT")        (setq tpnt (list apnt_x ext_mt))       )       ((= amode "B")        (setq tpnt (list apnt_x ext_b))       )     )     (print tpnt)     (if tpnt       (command "_move" objname "" tpnt apnt)     )     (setq count (1+ count))   ) )

选择对齐点之后在关捕捉不就好了吗