注册 登录
明经CAD社区 返回首页

鱼与熊掌的个人空间 http://www.mjtd.com/?7304311 [收藏] [复制] [分享] [RSS]

日志

通过C#定义一个lisp函数,并且返回当前DWG图纸和屏幕的坐标点关系.

热度 1已有 716 次阅读2015-4-15 17:02 |系统分类:应用

;返回 -> ()
(1 699)
命令: (GetDwgScrPt)
(-8 677)
命令:
命令: (GetDwgScrPt)
(-704 494)

//<<代码

<<>>

using System;
using System.Drawing;
using System.Collections.Generic;
using System.Text;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using System.Runtime.InteropServices;

<<<<<<
        [LispFunction("GetDwgScrPt")]
        public static ResultBuffer GetDwgScrPt(ResultBuffer resBufIn)
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            ResultBuffer resBufOut = new ResultBuffer();
            Point3d p1;
            System.Drawing.Point p2;
            p1 = new Point3d(1.0, 1.0, 0);
            p2=ed.PointToScreen(p1, 1);
            resBufOut.Add(
              new TypedValue((int)LispDataType.Int16, p2.X));
            resBufOut.Add(
              new TypedValue((int)LispDataType.Int16, p2.Y));
            //resBufOut.Add
            return resBufOut;
        }

路过

雷人
1

握手

鲜花

鸡蛋

刚表态过的朋友 (1 人)

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-19 02:29 , Processed in 0.093175 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部