大家看看，欢迎提宝贵意见。
2010年04月 存档
我写的一个画标高的lsp程序
2010年04月4日，星期日如何解决两圆外切是的内公切线
2010年04月4日，星期日这是我写的,请各位帮忙改正一下
code:
;;;;
(defun dtr(a)
(* a (/ pi 180.0))
) ;将角度转换为弧度
(defun c:dyx() ;定义一个函数
(setar “cmdecho” 0)
(graphscr) ;将文本转换为图形
(setq r1(getdist “n Specify radius of small circle:”))
(setq r2(getdist “n Specify radius of big circle:”))
;;; d > r1+r2的情况我省略了
(if (setq d (+ r1 r2))
(progn
(setq a(getangle “n Specify angle of two circles:”)) ;中心线与水平线的夹角
(setq c1(getpoint “n Specify center of small circle:”))
(setq c2 (polar c1 a d)) ;确定大圆的位置
(command “circle” c1 r1)
(command “circle” c2 r2)
(command “line” c1 c2 “”)
(setq e1 (entlast))
(command “-osnap” “intersection”)
(setq e2 (entlast))
;(setq pt (osnap c1 “intersection”))
(command “rotate” e2 “” e1 “90″ “”)
(setar “cmdecho” 1)
(princ)
)
)
)
我可以帮你们作ObjectDCL form （去广告条的）
2010年04月4日，星期日我可以帮你们作ObjectDCL form （去广告条的）
我有正版 objectdcl 2.02
一个LISP程序
2010年04月4日，星期日这是我在网上下载的一个可以绘制图幅的程序，在R14中却加载不了，请高手指教。
谢了
我在autocadR12 for DOS下编写的一个lsp程序
2010年04月4日，星期日我在autocadR12 for DOS下编写的一个lsp程序，几年来一直运行得很好，最近我装上了autocad2002简体中文版，但我的这个lsp程序在lisp下却运行不正常了，查不出原因，急死了，哪位大哥有这方面的经验，请告诉我，不胜感激！
一个菜鸟的问题
2010年04月4日，星期日请问AUTOLISP跟ISUALLISP有什么不同？
AUTOCAD2000自带的是AUTOLISP还是ISUALLISP啊？
感谢lucas的面积，and than….
2010年04月4日，星期日非常感谢，程序很好用！
还有几个小问题，
1、你能否将最后结果取整（4舍5入）；
2、前面的“面积=”可否设城让用户自己输入文字；
3、字体怎么设置我才不需要每次标注后都不必修改字体？
再次感谢!
——————————————————————————————
sorry，我发现输出减去孤岛后的精确面积还是有必要的：（，——–我对lisp语言实在的不懂，还是要麻烦你老了。
哪有“VISUAL LISP FOR AUTOCAD2000程序设计－从学会到用好”卖？
2010年04月4日，星期日我在网上看见这本书，在广州找了几个图书市场都没找到，请问哪有卖？
一个求区域面积的程序
2010年04月4日，星期日前段时间朋友说要求公路断面土方的面积，当时两个人谈论了很久觉得主要问题在于找出该区域的边，上网找程序未果，结果最近发现acad本身就有boundary这个命令，笨死了，于是5句话解决。献丑分享，不过有个不懂得地方，massprop给出的文本屏幕的东西怎么来提取标注在图中之处。
命令my，在任意区域点点，可在文本屏幕给出面积和其他参量
(defun c:my()
(command “-boundary” pause “” “y” )
(command “region” “l” “”)
(command “_massprop” “l” “” “” )
(command “erase” “l” “”)
(textscr)
)
ObjectDCL 2.02 最新版注册文件….
2010年04月4日，星期日见下面内容，欢迎朋友踊跃贴关于ODCL方面的应用帖子。
[隐藏内容]
你的积分要到 20 分才能浏览里面的内容！
