将已知一条边更改为固定长度并将所有图元进行缩放

linshucai

;选已知一条边更改为固定长度并将所有图元进行缩放

(defun C:snlen( / n newdis olddi p1 ss)
  (setq ss(ssget))
  (vl-load-com)
  (setq p1 (getpoint))
  (setq olddi (getdist p1 "\n 请选择矢量参考长度"))
   (setq newdis (getdist "\n最终长度"))
   (setq n ( / newdis olddi))
   (vl-cmdf "scale" ss "" p1  n "")
)

用于矢量化后的图进行缩放成想要的尺寸.
  

lilq_78

?

highflybir

这难道也要编程？ 用align命令或者scale命令 (参照缩放）不行么？

sc SCALE
选择对象: 指定对角点: 找到 2 个

选择对象:
指定基点:
指定比例因子或 [参照(R)]: r
指定参照长度 <1>: 指定第二点:
指定新长度:

al ALIGN
选择对象: 指定对角点: 找到 2 个

选择对象:
指定第一个源点:
指定第一个目标点:
指定第二个源点:
指定第二个目标点:
指定第三个源点或 <继续>:
是否基于对齐点缩放对象？[是(Y)/否(N)] <否>: y

linshucai

此程序用于描图后与实际比例相一致所编的,从插入光栅图像,然后描图,描好后将光栅图删除,缩放...那就可以用这个程序了.