明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: cabinsummer

[【风之影】] [源码]LISP实现所见即所得

    [复制链接]
 楼主| 发表于 2011-8-31 22:45 | 显示全部楼层

这是第一次运行时出现的界面

本帖最后由 cabinsummer 于 2011-8-31 22:55 编辑


第一次运行时,选择你的显示器大小和分辨率。可以用尺子精确的量显示范围的对角线长度,如果单位是毫米,请除以25.4,再到桌面属性里看看你的显示器分辨率是多少。根据这个选择对话框中相应的条目。如果没有你显示器的参数,请回帖告诉我,我在程序中为您加入。谢谢合作!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2011-8-31 22:51 | 显示全部楼层
戏男 发表于 2011-8-27 15:54
我试了 出错 显示; 错误: 参数类型错误: stringp nil

请下载10楼的源程序和编译后的VLX文件
 楼主| 发表于 2011-8-31 22:51 | 显示全部楼层
xotoo 发表于 2011-8-31 15:25
没有出现对话框
出现一个命令提示
但命令运行无效果

请下载10楼的源程序和编译后的VLX文件
 楼主| 发表于 2011-8-31 22:53 | 显示全部楼层
zhuangxu_521 发表于 2011-8-28 19:43
出错呀

请下载10楼的源程序和编译后的VLX文件
发表于 2011-9-1 14:20 | 显示全部楼层
谢谢了 不错 这回可以了哈哈
发表于 2011-9-1 14:36 | 显示全部楼层
请楼主帮忙编一个17大的 分辨是:1280*1024的 谢谢您 期待中
 楼主| 发表于 2011-9-1 18:53 | 显示全部楼层

看见没有?在DESKTOP的单选框里有你需要的17寸1280*1024

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2011-9-1 19:08 | 显示全部楼层
本帖最后由 cabinsummer 于 2011-9-1 19:12 编辑

其实大家自己也可以加程序中没有的分辨率。
比如15.41680*1050的显示器,点距为15.4*25.4/sqrt(1680*1680+1050*1050)。颜色对应的数值带入计算,红色表示不变的部分。上述公式计算出15.41680*1050的显示器点距为0.1974
在LSP程序中找到下面的赋值语句中加上一项"15.4\t1680*1050\td0.1974",给desktop或laptop都可以,不过这一分辨率一般属于laptop(笔记本)。
在autocad的命令行粘贴这一句(vl-registry-delete "HKEY_CURRENT_USER\\Software\\Freebird" "pixelpitch")
清楚掉注册表中记录的点距数值,重新运行Z11即可。

(setq desktop '(
  "12.1\t800*600\td0.308" "12.1\t1024*768\td0.240" "12.1\t1280*800\td0.204"
  "13.3\t1024*768\td0.264" "13.3\t1280*800\td0.224" "14.1\t1024*768\td0.279"
  "14.1\t1280*800\td0.237" "14.1\t1400*1050\td0.204" "14.1\t1440*900\td0.211"
  "15\t1024*768\td0.297" "15\t1400*1050\td0.218" "15\t1600*1200\td0.190"
  "16\t1280*1024\td0.248" "17\t1280*1024\td0.264" "17W\t1280*768\td0.2895"
  "17.4\t1280*1024\td0.270" "18\t1280*1024\td0.281" "19\t1280*1024\td0.294"
  "19\t1600*1200\td0.242" "19W\t1440*900\td0.285" "19W\t1680*1050\td0.243"
  "20.1\t1200*1024\td0.312" "20.1\t1600*1200\td0.255" "20.1W\t1680*1050\td0.258"
  "20.1\t2560*2048\td0.156" "20.8\t2048*1536\td0.207" "21.3\t1600*1200\td0.270"
  "21.3\t2048*1536\td0.210" "21.6W\t1680*1050\td0.276" "22W\t1600*1024\td0.294"
  "22W\t1680*1050\td0.282" "22.2\t3840*2400\td0.1245" "23W\t1920*1200\td0.258"
  "23.1\t1600*1200\td0.294" "24W\t1920*1200\td0.270" "27W\t1920*1200\td0.303"
  "30W\t2560*1600\td0.250"
        )
     laptop '(
  "12.1\t1024*768\td0.240" "13.3\t1024*768\td0.264" "14.1\t1024*768\td0.280"
  "15.1\t1024*768\td0.300" "14.1\t1400*1050\td0.205" "15.1\t1400*1050\td0.219"
  "15.1\t1600*1200\td0.1918" "12.1W\t1280*800\td0.204" "13.3W\t1280*800\td0.224"
  "14.1W\t1280*800\td0.237" "15.4W\t1280*800\td0.259" "17W\t1280*800\td0.286"
  "14.1W\t1440*900\td0.211" "15.4W\t1440*900\td0.230" "15.4\t1680*1050\td0.1974"
  "17W\t1440*900\td0.254" "17W\t1920*1200\td0.191" "19W\t1920*1200\td0.213"
  "20W\t1920*1200\td0.224"
        )
      )
发表于 2011-9-1 20:49 | 显示全部楼层
第一次出现了对话框,但以后就不再出现了
并且选择了其实没有效果
 楼主| 发表于 2011-9-2 07:58 | 显示全部楼层
xotoo 发表于 2011-9-1 20:49
第一次出现了对话框,但以后就不再出现了
并且选择了其实没有效果

第一次会出现对话框,把你的选择记录到注册表里,所以第一次一定要选对,如果选错了,你只能直接去注册表里清除。清除办法:在AutoCAD命令行里输入(vl-registry-delete "HKEY_CURRENT_USER\\Software\\Freebird" "pixelpitch")
你可以这样测试,比如画一条长100毫米的线,或者圆等东西,然后运行此命令,运行后拿尺子量这条100毫米的线在屏幕上显示的长度,你就会发现如此精确。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 23:40 , Processed in 0.235479 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表