;|
Change Elevations
- select polyline
- Enter increment value and negative to
decrease
การใช้งาน
-
เลือกเส้น ที่ต้องการแก้ไขค่า z หรือค่า
elevtion
-
ใส่ค่าที่ต้องการเพิ่มหรือลดค่า z หรือค่า
elevtion
หากต้องการเพิ่มค่า z หรือค่า elevtion ให้ใส่ค่าตัวเลขที่ต้องการเพิ่มเช่น 0.25
หากต้องการลดค่า z หรือค่า elevtion ให้ใส่ค่าตัวเลขที่ต้องการลดเช่น -0.25
|;
(defun
c:chelev (/ *error* _i i acDoc o)
(vl-load-com)
;----------------------------
(defun
*error* (msg)
(if
acDoc (vla-endundomark acDoc))
(cond ((not msg))
((member msg '("Function
cancelled" "quit / exit abort")))
((princ (strcat "\n** Error:
" msg " ** ")))
)
(princ)
)
;----------------------------
(defun
_i (lst i)
(vlax-3d-point(list
(car lst) (cadr lst) (+ (last lst) i)))
)
;----------------------------
(if
(and(ssget ":L")
(setq i (getreal "\nEnter
increment value (negative to decrease): "))
)
(progn
(vla-startundomark (setq acDoc
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-for x
(vla-get-activeselectionset acDoc)
(if (vlax-property-available-p
x 'elevation T)
(vla-put-elevation x (+
(vla-get-elevation x) i))
(cond
((=
"AcDbBlockReference" (setq o (vla-get-objectname x)))
(vla-put-insertionpoint
x (_i (vlax-get x 'insertionpoint) i))
)
((=
"AcDbCircle" o)
(vla-put-center
x (_i (vlax-get x 'center) i))
)
(T (prompt (strcat
"\n** Unsupported object: \"" o "\" ** ")))
)
)
)
)
)
(*error*
nil)
)
(prompt
"\nEnter CHELEV to Start Change Elevations.")
ไม่มีความคิดเห็น:
แสดงความคิดเห็น