[综合讨论] 线宽/刻度问题。大学教师

;****************************************************************************
;                     PWID.LSP V1.0 by Zoltan Toth
;    ZOTO Technologies,
;    23 Greenhills Dve,
;    Melton 3337.
;    E-MAIL: zoltan.toth@ains.net.au
;       WWW: http://www.ains.net.au/zoto/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Version 1.1 - 9 Jan 2000
; Modified to recognize LightWeightPolylines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This program prompts the user to select a number of POLYLINES and then
; requests a new width. The user can respond by either keying in a number,
; picking 2 points on screen, "H" to supply a Halfwidth for the POLYLINES or
; "I" to change the width (or Halfwidth) Individually. If Halfwidth was
; selected, the user again can enter the Halfwidth value by either keying
; in a number or picking 2 points on screen. If Individually was selected,
; each polyline will be highlighted in turn and the user will be prompted
; for a width (or Halfwidth) for that POLYLINE. Tapered polylines will
; become parallel. The program will filter out non-POLYLINE objects,
; facilitating selection by Window or Crossing.
;****************************************************************************
;define program and localize variables
(defun C:PWID(/ CTR2 SS2 WID2 OBJN2 WID3)
(setq CMD (getvar "CMDECHO")                            ;save CMDECHO status
      CTR2 0                                        ;initialize counter CTR2
)
(setvar "CMDECHO" 0)                               ;turn off command echoing
(prompt "\nSelect polylines")
;get polylines and/or lwpolylines
(setq SS2
 (ssget '((-4 . "<OR")(0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "OR>"))))
(if SS2                                      ;if any polylines were selected
 (progn
  (initget 5 "Halfwidth Individually")        ;initialize allowable keywords
;set WID2 to either a distance for width or a keyword
  (setq WID2 (getdist "\n<Enter new width>/Halfwidth/Individually: "))
  (if (= WID2 "Halfwidth")                    ;if it was keyword "Halfwidth"
   (progn
    (initget 5)
;set WID2 to width by doubling supplied halfwidth
    (setq WID2 (* 2 (getdist "\nEnter halfwidth: ")))  
   )                                                              ;end PROGN
  )                                                                  ;end IF
  (if (/= "Individually" WID2)   ;if the value in WID2 is not "Individually"
;repeat next section by number of polylines selected
   (repeat (sslength SS2)
    (setq OBJN2 (ssname SS2 CTR2)                      ;get name of polyline
          CTR2 (1+ CTR2)                                  ;increment counter
    )
    (command "._PEDIT" OBJN2 "_W" WID2 "")            ;change polyline width
   )                                                             ;end REPEAT
;else if WID2 is "Individually", then repeat next
;section by the number of polylines selected
   (repeat (sslength SS2)     
    (setq OBJN2 (ssname SS2 CTR2)                      ;get name of polyline
          CTR2 (1+ CTR2)                                  ;increment counter
    )                                                            ;end REPEAT
    (redraw OBJN2 3)                                     ;highlight polyline
;set WID2 to either distance for width or keyword
    (if (= 'REAL (type WID2))                    ;if value if WID2 is a real
     (progn
      (initget 4 "Halfwidth")                            ;initialize keyword
;set WID2 to either distance for width or keyword and prompt
;with last entered value as default for width
      (setq WID2 
       (getdist 
        (strcat "\n<New width for this polyline>/Halfwidth " 
                "<" 
                (rtos WID2) 
                ">: "
        )          
       )        
      )                                                            ;end SETQ
     )                                                            ;end PROGN
     (progn                             ;else if value of WID2 is not a real
      (initget 5 "Halfwidth")                            ;initialize keyword
;set WID2 to either distance for width or keyword and prompt
;without default width
      (setq WID2 (getdist "\n<New width for this polyline>/Halfwidth: "))
     )                                                            ;end PROGN
    )                                                                ;end IF
    (if (= WID2 "Halfwidth")                ;if value of WID2 is the keyword
     (progn
      (initget 5)
;set WID2 to width by doubling supplied halfwidth
      (setq WID2 (* 2 (getdist "\nEnter halfwidth: ")))
     )                                                            ;end PROGN
    )                                                                ;end IF
    (if (not WID2)        ;if WID2 has no value (default width was accepted)
     (setq WID2 WID3)                   ;set WID2 to previous supplied width
     (setq WID3 WID2)           ;else store current width for use as default
    )
    (command "._PEDIT" OBJN2 "_W" WID2 "")            ;change polyline width
   )                                                             ;end REPEAT
  )                                                                  ;end IF
 )                                                     ;end very first PROGN
;else if no poly lines were selected, inform user
 (prompt "\No polylines selected!")
)                                                         ;end very first IF
(setvar "CMDECHO" CMD)                       ;restore command echoing status
(princ)                                                        ;exit quietly
)