马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
[sell=5] - (defun c:xdtb_image2pjz ( / e mat p1 p2 p3 p4)
- (if (and
- (setq e (car (xdrx_entsel "\n选取图像<退出>" '((0 . "image")))))
- (setq p1 (getpoint "\n源第一点<退出>:"))
- (setq p2 (getpoint p1 "\n源第二点<退出>:"))
- (setq p3 (getpoint "\n目标第一点<退出>:"))
- (setq p4 (getpoint p3 "\n目标第二点<退出>:"))
- )
- (progn
- (xdrx_begin)
- (xdrx_sysvar_push '(("osmode" 33)("orthomode" 0)))
- (setq p1 (trans p1 1 0)
- p2 (trans p2 1 0)
- p3 (trans p3 1 0)
- p4 (trans p4 1 0)
- )
- (setq mat (xdrx_matrix_align (list p1 p2) (list p3 p4) t))
- (xdrx_entity_transform e mat)
- (xdrx_draworder->back e)
- (xd::doc:command (list ".regen"))
- (xdrx_prompt "\n图像校正完毕.")
- (xdrx_sysvar_pop)
- (xdrx_end)
- )
- )
- (princ)
- )
[/sell] |