[LISP程序]：[请教]关于SCALE的一段LSP

dhxf · 发表于 2005-11-3 10:33:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

选择物体放大1.5倍
.....
(if (setq ent (ssget))
(command "scale" ent "" "0.0" "1.5" ))
.......
不出现[指定基点],怎么样才能调过来.
谢谢

Underway · 发表于 2005-11-3 11:11:47

Command: SCALE
Select objects: 1 found

Select objects:

Specify base point:
Specify scale factor or [Reference]: 1.5

(command "scale" ent "" Pause "1.5" )

yshf · 发表于 2005-11-3 11:14:23

;改为如下即可
.....
(if (setq ent (ssget))
(command "scale" ent "" pause "1.5" ))
.......

yuer0103 · 发表于 2005-11-3 11:44:26

(princ "\n选取对象：")
(setq ss (ssget))
(if ss
(progn
(setq pt (getpoint "\n指定基点："))
(command "scale" ss "" pt "1.5" ))
))

jiangyu121218 · 发表于 2005-11-3 11:55:04

progn
(setq pt (getpoint "\n指定基点："))
(command "scale" ss "" pt "1.5" ))

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：[请教]关于SCALE的一段LSP

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子