CAD家园

[求助]：谁有这样一个函数?
谁有这样一个函数?
(ini-get inifile section key default)
功能及参数
inifile 字符串———寻找的INI文件名
section 字符串或nil—-INI文件内部的Section名称
key 字符串或nil—-section内部的Key名称.
default 字符串———当无法查找到key时,返回的默认值.
1.如果仅给了inifile,返回section名称表.
(ini-get “d:/diy.ini” nil nil nil)
–>(“ORIGIN” “OTHER”)
2.如果给了inifile,section.返回key表
(ini-get “d:/diy.ini” “ORIGIN” nil nil)
(“$diy_BL” “$diy_SZZG” “$diy_HZZG” )
3.如果给了inifile,section,key
(ini-get “d:/diy.ini” “ORIGIN” “$diy_bl” nil)
–>”100″
4.值不存在.则设置为默认值
(ini-get “d:/diy.ini” “ORIGIN” “abc” nil)
–>nil
(ini-get “d:/diy.ini” “ORIGIN” “abc” “500″)
–>”500″
—-以下为”d:/diy.ini”文件内容—
[ORIGIN]
;比例
$diy_BL=100
$diy_SZZG=350 ;数字字高
;汉字字高
$diy_HZZG=500
[OTHER]
;diy_CC交叉打断命令断开的距离.
$diy_CC_WIDTH=400

1]..我刚学ARX不久，现在在移植几个AUTOCAD14的ADS程序到AUTOCAD2000和AUTOCAD2004，只要设置好编译器.改变程序入口和一些库函数，就可以移植成功了。其它的都没什么问题。但很是讨厌的是其中的一个检查封闭性的程序它出了很大的问题。
[2].我仔细分析了一下这个程序，它是先设置偏移在这基础上选择图形，然后用acedSSGet建一个交叉窗口选择集，再用acedSSLength进行判断，假设acedSSLength返回的结果保存在参数len中，当len2时，“屏幕上的图形有交叉”；后面的一些“程序内部错误,请退出后再试!”的代码；如果不是上述的情况时，”图形封闭性检查完毕!”，也就是图形封闭。
[3].现在这个检查封闭性的程序它在AUTOCAD下面是乱检测，有些没封闭的它说是封闭的，封闭的它说是没封闭的。例如，《1》.一个缺一边的不封闭长方形A包含一个封闭长方形B，B包含一个封闭的长方形C，它检测结果”图形封闭性检查完毕!”。——错误！《2》.一个封闭的长方形A包含一个缺一边的不封闭的长方形B，B包含一个封闭长方形C，它检测结果是“图形封闭性检查完毕!”。——正确！《3》但是奇怪的是这种情况了，封闭长方形A中包含一个封闭长方形B，B包含一个缺一边的不封闭长方形C，它的检测结果却是“图形没封闭”。——正确了！这真是让我很是想不通！我也实在找不出它到底是哪里出了问题。
希望大家能给我帮助，我在这里深深的感谢大家！！！谢谢谢谢！！！！！！

给没有arx函数集的朋友提供一个方便~~~

在做AcDbHatch实体时要用到postToDb函数,编译时提示该函数没有声明,可明明已经包含了#include “util.h”头文件,怎么回事呢?另外,help.h里为什么招不到该函数?

各位好，请问在ARX中，是否有能把多段线围成的闭和区域转换成光栅图像的函数，若没有该如何去做呢？怎样才能把多段线围成的区域转化为光栅图象，恳请各位帮忙

请问如何是用transformBy()实现对创建实体的移动和旋转?
能否作出类似MOE那样，被选择的实体高亮显示，选择实体后根据鼠标的位置动态确定。
刚刚学习ARX各位高手多帮助！
谢谢！！！

请问在当前图形上确定插入图块的比例系数
使用什么函数，如何使用，谢谢！
比如 ads_getpoint(NULL,”n输入插入点”,asDblArray(bPt)); 在图形上确定插入点。

(defun C:luowen(/)
(setq b1 (getpoint”请指定螺旋线基点: “))
(setq r (getreal”请输入螺旋线平均半径: “))
(setq disp (getreal”请输入螺旋线节距: “))
(setq n (getint”请输入每圈细化段数: “))
(setq delta (/ (* 2.0 pi)n))
(setq j (/ disp n))
(setq bb (caddr b1))
(setq ang 0)
(setq jj 0)
(Command “UCS”"o” b1)
(Command “3dploy”(list r 0 0))
(repeat n
(setq jj(+ jj 1))
(setq ang (+ delta ang))
(setq pt2 (list(* r(cos ang)) (* r(sin ang)) (+ 0(* j jj))))
(Command pt2)
)
(Command”")
)

如题