[编程交流] 英尺英寸的脚本可能

; dist of two lines as text 
(setq pt1 (getpoint "\nPick first point .."))
(setq pt2 (getpoint "\nPick second point .."))
(setq pt3 (getpoint "\nPick third point .."))
(setq dist1 (distance Pt1 Pt2))
(setq dist2 (distance Pt1 Pt2))
(setq dist1main (- (fix dist1) dist1))
(setq dist1rem (- dist1main dist1))
(setq text1 (rtos dist1main 2 0))  
(setq text2 (rtos dist1rem 2 0))
(setq sqtext (strcat text1 "x" text2))
(princ sqtext)

(defun c:test (/ l a z y)
 (setvar 'Dynmode -3)
 (cond ((and
   (setq l (nentsel "\nSelect Text:"))
   (setq a (assoc 1 (entget (car l))))
   (setq z (cdr a))
   (progn
     (setq Y (getstring T (strcat "\nEnter New String <" z "> :")))
     (vla-put-textstring
       (vlax-ename->vla-object (car l))
       (if (null y)
  z
  y
       )
     )
   )
 )
)
 )
 (setvar 'Dynmode 3)
 (princ)
)

;Labels a lot's area using the Boundary command. LPS 2008-10
(defun c:LA () ;(/ cl txtst txtsz oldecho oldsnap B ac sf kw)
(setq temperr *error*);store *error*
(setq *error* errortrap);reassign *error*
(setq cl (getvar "clayer")
txtst (getvar "textstyle")
txtsz (getvar "textsize")
oldecho (getvar "cmdecho")
oldsnap (getvar "osmode")
);setq
(setvar "cmdecho" 0)
(command "-style" "SIMPLEX" "simplex.shx" "0" "0.9" "0" "n" "n" "n")
(setq ip (getpoint "\nPick internal point: "))
(command "-layer" "m" "calc" "c" "63" "calc" "p" "n" "calc" "")
(command "-boundary" ip "")
(command "region" (entlast) "")
(setq b (entlast))
(command "area" "o" b)
(setq ac (strcat (rtos (/ (getvar "area") 0.0929) 2 3) " Sq.Ft."))
(setq sf (strcat (rtos (getvar "area") 2 2) " SQ.M."))
(setq per (strcat (rtos (getvar "perimeter") 2 2) " M."))
(command "-layer" "m" "LOT-AREA" "c" "53" "" "")
(command "text"
"s"
"simplex"
"c"
ip
(* 0.2 (getvar "dimscale"))
"0"
sf
)
(command "text" "" ac)
(command "text" "" per)
(initget "Yes No")
(setq kw (getkword "\nErase boundary Yes/No? <Yes>"))
(if
(= kw nil)
(command "erase" b "")
) ;if
(command "textstyle" txtst)
(setvar "clayer" cl)
(setvar "textsize" txtsz)
(setvar "cmdecho" oldecho)
(setvar "osmode" oldsnap)
(setq *error* temperr)
(princ)
);defun c:
;==========ERROR TRAP=================
(defun errortrap (msg) ;define function
(setvar "textstyle" txtst)
(setvar "textsize" txtsz)
(setvar "clayer" cl)
(setvar "cmdecho" oldecho) ;restore variables
(setvar "osmode" oldsnap)
(setq *error* temperr) ;restore *error*
(prompt "\nResetting System Variables ") ;inform user
(princ)
);defun
;==========ERROR TRAP=================
(prompt "\nLotArea.lsp loaded, type LA to run")
(princ)

;;--------------=={ SelectionSet BoundingBox }==--------------;; ;;                                                            ;; ;;  Returns the lower-left and upper-right points of a        ;; ;;  rectangle bounding all objects in a supplied SelectionSet ;; ;;------------------------------------------------------------;; ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;; ;;------------------------------------------------------------;; ;;  Arguments:                                                ;; ;;  ss - SelectionSet for which to return the BoundingBox     ;; ;;------------------------------------------------------------;; ;;  Returns:  Point List decribing BoundingBox (in WCS)       ;; ;;------------------------------------------------------------;;  (defun LM:SSBoundingBox ( ss / i l1 l2 ll ur )     (repeat (setq i (sslength ss))         (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'll 'ur)         (setq l1 (cons (vlax-safearray->list ll) l1)               l2 (cons (vlax-safearray->list ur) l2)         )     )     (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list l1 l2)) )