cad图形矢量校正问题

fdh · 发表于 2014-4-16 19:54:55

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

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

×

这是本人在网上找的一个CAD图形矢量校正的程序，只有二点校正。在校正有些图件时，
校正后图形是斜的，想请高手把程序改成四个点或多个点的图形校正程序。使校正的矢量图更准确些。

;图像校正的LSP
(defun c:txjz()
(setq pt1 (getPOINT "\n输入定向第一点假定坐标:"))
(setq pt3 (getpoint "\n输入定向第一点实际坐标:"))
(setq pt2 (getpoint "\n输入定向第二点假定坐标:"))
(setq pt4 (getpoint "\n输入定向第二点实际坐标:"))
(setq angl1 (angle pt1 pt2))
(setq l1(distance pt1 pt2))
(setq l2 (distance pt3 pt4))
(setq k(/ l2 l1))
(setq angl2 (angle pt3 pt4))
(setq angl3 (/ (* 180 (- angl2 angl1)) pi))
;(setq k (getreal "\n输入缩放系数:"))
;(setq pt5 (getpoint "\n中心点一下"))
(setq ss(ssget))
(command "rotate" ss "" pt1 angl3)
(command "move" "p" "" pt1 pt3)
(command "scale" "p" "" pt3 k)
)

fdh · 发表于 2014-4-16 19:56:56

本人校正图形主要是想把图形坐标改成绝对坐标，做地形图时有用的。

newer · 发表于 2014-4-16 22:11:48

四个点和多个点如何校正，请用专业的语言描述出过程，最好拿个简单的图形做个动画演示。

st788796 · 发表于 2014-4-16 22:29:03

本帖最后由 st788796 于 2014-4-16 22:32 编辑

校正在cad下有限制，实体矩阵变换没有OpenCV那种，只能用点的变换去模拟，这个应用有人炫耀过，你花些费用就能找到现成的

fdh · 发表于 2014-4-18 21:36:53

楼上的这位朋友，你能告诉我花些费用怎么找这个程序？

st788796 · 发表于 2014-4-19 07:29:13

Align 命令即可, 最后有所放选项

zxq0220 · 发表于 2014-4-19 07:55:49

(setvar "OSNAP" 0)
后再运行command

qqqincccken · 发表于 2014-4-19 08:19:44

进来学习一下,等大侠出现

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

[求助] cad图形矢量校正问题

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

相关帖子