AutoLisp：AutoLisp實(shí)現(xiàn)對AutoCAD進(jìn)行輸入命令，選擇對象，實(shí)現(xiàn)不同方向進(jìn)行縮放

?

?

目錄

AutoLisp實(shí)踐

實(shí)現(xiàn)結(jié)果

實(shí)現(xiàn)代碼

---

?

?

?

?

AutoLisp實(shí)踐

實(shí)踐案例1：輸入命令，選擇對象，實(shí)現(xiàn)不同方向進(jìn)行縮放

?

實(shí)現(xiàn)結(jié)果

?

實(shí)現(xiàn)代碼

;x,y方向不同比例縮放 ; *** XSCALE [Version 1.0] 6/22/2005 *** ; ;Copyleft Gu Wenwei ; ; *************************************** ; **** Author: Apooollo **** ; **** **** ; **** Wuxi Jiangsu China **** ; *************************************** ; ; ; This program takes selected objects, defines an anonymous block, ; then inserts the block at the original location, Scale by X,Y(defun C:XSCALE(/ bp ss xscal yscal entL)(defun errexit (s)(princ "\nError: ")(princ s)(restore))(defun restore ()(setvar "CMDECHO" (car oldvar))(setq *error* olderr)(princ))(defun MAKEUNBLOCK (ss ip / tmp errexit mbx BLAYER)(setq T (not nil))(setq olderr *error**error* errexit)(setq oldvar (list (getvar "CMDECHO") ))(setvar "CMDECHO" 0)(terpri)(if BLAYER (command "._LAYER"(if (tblsearch "LAYER" BLAYER) "_S" "_M")BLAYER""))

?

總結(jié)

以上是生活随笔為你收集整理的AutoLisp：AutoLisp实现对AutoCAD进行输入命令，选择对象，实现不同方向进行缩放的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。