自动缩放的代码,写的不对，请老师帮忙修改，谢谢

hhh454 · 发表于 2011-1-15 19:42

想实现一个自动缩放的代码，下面是我自己琢磨的，见笑了。

(defun c:ngc-sc()
  (setq ngc-pa (getpoint "指定一点:"))
  (setq ngc-pb (/ 1 180))
  (setq ngc-ty (ssget))
  (command "_scale" ngc-ty "" ngc-pa ngc-pb "")
  (prin1))
请教一个问题，
(setq ngc-pb (/ 1 180))这个不行
本来我的思路是：
代码的主要运行命令：scale
所以我根据sc命令的运行，给他需要的变量
下面是命令的运行效果：
命令: sc SCALE
选择对象: 找到 1 个（选择对象：我用(setq ngc-ty (ssget))
选择对象:                   （这一步是确认  "")
指定基点:                      (setq ngc-pa (getpoint "指定一点:"))我的想法是用函数直接根据选择的对象计算一个点，不会弄）
指定比例因子或 [参照(R)]: 1/180 （输入一个数值，cad可以自己计算数值，就是这一步不知道怎么弄到lisp里面）
请老师帮忙

LIULISHENG · 发表于 2020-11-15 10:30

谢谢分享

masterlong · 发表于 2011-1-15 19:58

1.0 or 180.0

hhh454 · 发表于 2011-1-15 19:59

刚刚飞诗大哥，帮忙解决了，
(defun c:ngc_sc()
  (setq ngc_pa (getpoint "指定一点:"))
  (setq ngc_pb (/ 1.0 180))  ；1.0原来是1
  (setq ngc_ty (ssget))
  (command "_scale" ngc_ty "" ngc_pa ngc_pb "")
  (prin1))

hhh454 · 发表于 2011-1-15 20:06

上面的代码已经可以实现功能了，可是执行完出现：
未知命令“NGC_SC”。按 F1 查看帮助

hhh454 · 发表于 2011-1-15 20:13

回复 masterlong 的帖子

谢谢，代码已经改好了，但是执行后出现问题
未知命令“NGC_SC”。按 F1 查看帮助

xyp1964 · 发表于 2011-1-15 21:02

(defun c:tt ()
(if (and (setq pt (getpoint "\n指定一点: "))
(setq ss (ssget))
)
(command "_scale" ss "" pt (/ 1 180.))
)
(princ)
)

Andyhon · 发表于 2011-1-15 21:03

(command "_scale" ngc_ty "" ngc_pa ngc_pb "")
===>
(command "_scale" ngc_ty "" ngc_pa ngc_pb)

hhh454 · 发表于 2011-1-17 16:34

回复 Andyhon 的帖子

谢谢，明白了，还不能按照命令的方式写

hhh454 · 发表于 2011-1-17 16:37

回复 xyp1964 的帖子

谢谢院长，一直用您的程序，很好用。

cumtjh · 发表于 2011-7-15 10:59

(defun c:test ()
(if (and (setq pt (getpoint "\n指定一点: "))
(setq ss (ssget))
(setq bl (/ 1 (get_m))) ;绘图比例
)
(command "_scale" ss "" pt bl)
)
(princ)
)

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

[基础] 自动缩放的代码,写的不对，请老师帮忙修改，谢谢