[源码]LISP实现所见即所得

cabinsummer

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

cabinsummer

戏男 发表于 2011-8-27 15:54
我试了 出错 显示; 错误: 参数类型错误: stringp nil

请下载10楼的源程序和编译后的VLX文件

cabinsummer

xotoo 发表于 2011-8-31 15:25
没有出现对话框
出现一个命令提示
但命令运行无效果

请下载10楼的源程序和编译后的VLX文件

cabinsummer

zhuangxu_521 发表于 2011-8-28 19:43
出错呀

请下载10楼的源程序和编译后的VLX文件

戏男

谢谢了 不错 这回可以了哈哈

戏男

请楼主帮忙编一个17大的 分辨是：1280*1024的 谢谢您 期待中

cabinsummer

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

cabinsummer

其实大家自己也可以加程序中没有的分辨率。
比如15.4寸1680*1050的显示器，点距为15.4*25.4/sqrt(1680*1680+1050*1050)。颜色对应的数值带入计算，红色表示不变的部分。上述公式计算出15.4寸1680*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"
        )
      )

xotoo

第一次出现了对话框，但以后就不再出现了
并且选择了其实没有效果

cabinsummer

xotoo 发表于 2011-9-1 20:49
第一次出现了对话框，但以后就不再出现了
并且选择了其实没有效果

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