[编程交流] 动态块丢失夹点wh

(defun C:SZ()
 (setq firstPoint (getpoint "\nSelect Area: "))            ; Select Area Of Interest    
 (setq secondPoint (getcorner "\nKeep Going: " firstPoint))
 
 (command "._ZOOM" "W" firstPoint secondPoint)                ; Zoom to AOI
 
 (setq planDist (- (nth 1 secondPoint) (nth 1 firstPoint)))        ; Get the height of the AOI
 (if (> 0 planDist)                            ; If the height is negative, make it positive
   (setq planDist (* -1 planDist))
 ) ; end if
 
 (setq iconScale (+(* 0.000021 planDist) 0.2727))            ; Equation that scales the icons by the height of the AOI
 
 (setq iconScaleStr (rtos iconScale 2 3))                ; Print some info to the screen
 (setq planDistStr (rtos planDist 2 3))
 (print (strcat "Icon Scale is: " iconScaleStr " times the original (2000mm) and Plan Height is: " planDistStr "mm"))
 (QS)                                    ; Call the quick scale tool
)
(defun QS()
 (command "._UNDO" "Begin")                        ; Set Undo Group start
 (setq count 0)                            ; Initialise count variable
 
 (setq sSet (ssget "X" '((0 . "INSERT"))))                ; Create a selection set from all blocks in the database
 
 (setq sLeng (sslength sSet))                        ; Get the length of the selection set
 
 (while (< count sLeng)                        ; While the count is less than the number of objects:
   (setq entName (ssname sSet count))                    ; Set entname to the ssname of the object in the sset indexed by count
   
   (setq oldScale (cdr (assoc 41 (entget entName))))            ; Get the scale from the current object
   (setq insertPoint (cdr (assoc 10 (entget entName))))        ; Get the insert point
   (command "._SCALE" entname "" insertPoint "REF" oldScale iconScale)    ; Scale the block using ref, the old scale and the new scale
   (setq count (+ 1 count))                        ; Increment the count
 )    ; end while
 (command "._UNDO" "End")                        ; Set Undo Group end
)    

;;; BXY by David Harrington; Modified by Paulo Gil Soto (added annotation scale reset to 1:1)
;;; updates selected blocks x,y and z values to current Dimscale
;;;
;;; Main Program
;;;
(defun c:Bu (/ ss xs ys zs num x na lst editxyz_error olcmdecho old_err) 
(defun editxyz_error (msg) 
 (if (or
   (= msg "Function cancelled")
   (/= msg "quit / exit abort")
  ) 
  (princ (strcat "Error: " msg))
 ) 
 (command ".UNDO" "E" "UNDO" "") 
 (setq *error*  old_err
    old_err  nil
 )
 (setvar "CMDECHO" olcmdecho)
 (princ)
) 
(setq old_err *error* 
   olcmdecho (getvar "CMDECHO")
   *error* editxyz_error
) 
(setvar "CMDECHO" 0)
       (setq dms (getvar "dimscale"))
(command ".UNDO" "BE")  (prompt "\nSelect Blocks to match current dimscale: ")
(cond
 ((setq ss (ssget '((0 . "INSERT"))))
        (command "-objectscale" ss "" "add" "1:1" "" "cannoscale" "1:1") 
  (setq num (sslength ss))
  (setq x 0)
  (repeat num 
   (setq na (ssname ss x)) 
   (setq lst (entget na))
   (setq lst (subst (cons 41 dms) (assoc 41 lst) lst))
   (setq lst (subst (cons 42 dms) (assoc 42 lst) lst))
   (setq lst (subst (cons 43 dms) (assoc 43 lst) lst))
   (entmod lst) 
   (entupd na) 
   (setq x (+ x 1))
  )
 )
)
(command "attsync" "name" "*")
       (command ".UNDO" "E") 
(setq *error* old_err)
(setvar "CMDECHO" olcmdecho)
(princ)
)