autolisp编程求助这是一个大虾编的CAD坐标提取程序,但是我觉得这个程序我运用起来不是很顺手,帮我把程序改一下,主要加入这样一个环节即可,可以不用输入命令重复提取坐标,输入点号1,查询

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 07:26:31
autolisp编程求助这是一个大虾编的CAD坐标提取程序,但是我觉得这个程序我运用起来不是很顺手,帮我把程序改一下,主要加入这样一个环节即可,可以不用输入命令重复提取坐标,输入点号1,查询autol

autolisp编程求助这是一个大虾编的CAD坐标提取程序,但是我觉得这个程序我运用起来不是很顺手,帮我把程序改一下,主要加入这样一个环节即可,可以不用输入命令重复提取坐标,输入点号1,查询
autolisp编程求助
这是一个大虾编的CAD坐标提取程序,但是我觉得这个程序我运用起来不是很顺手,帮我把程序改一下,
主要加入这样一个环节即可,可以不用输入命令重复提取坐标,输入点号1,查询完之后可以直接查找下一点坐标,并且点号为2,以此类推
(defun c:tiqu(/ a b c)
(setq c(getstring"输入点号:"))
(setq a(getpoint"\n选取点:"))
(setq b(open "C:\\Documents and Settings\\Administrator\\桌面\\坐标.txt" "a"))
(print (list c a) b)
(close b)
(princ)
)
一楼您的答案我尝试了,可以连续点,但是还差一点就是序号的自动增加啊,能否再麻烦你一下你

autolisp编程求助这是一个大虾编的CAD坐标提取程序,但是我觉得这个程序我运用起来不是很顺手,帮我把程序改一下,主要加入这样一个环节即可,可以不用输入命令重复提取坐标,输入点号1,查询
(defun c:tiqu(/ a b c)
(setq c(getstring"输入点号:"))
(setq a(getpoint"\n选取点:"))
(terpri)(terpri)
(setq b(open "C:\\Documents and Settings\\Administrator\\桌面\\坐标.txt" "a"))
(print (list c a) b)
(close b)
(princ)
(c:tiqu)
)
好,我就再帮你一次吧,看看是不是这个效果?
(defun c:tiqu(/ a b i)
(setq i (uint 1 "" "\n起始编号:" 1))
(while
(setq a(getpoint"\n选取点:"))
(terpri)
(setq b(open "C:\\Documents and Settings\\Administrator\\桌面\\坐标.txt" "a"))
(print (list i a) b)
(close b)
(setq i (+ 1 i))
(princ)))
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg ":")
bit (* 2 (fix (/ bit 2))) )
(setq msg (strcat "\n" msg ":")) )
(initget bit kwd)
(setq inp (getreal msg))
(if inp
inp
def ) )
(defun uint (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg ":")
bit (* 2 (fix (/ bit 2))) )
(setq msg (strcat "\n" msg ":")) )
(initget bit kwd)
(setq inp (getint msg))
(if inp
inp
def ))

autolisp编程求助这是一个大虾编的CAD坐标提取程序,但是我觉得这个程序我运用起来不是很顺手,帮我把程序改一下,主要加入这样一个环节即可,可以不用输入命令重复提取坐标,输入点号1,查询 求助Autolisp:定义一个求三角形面积的函数.就是利用autolisp编写一个求三角形面积的二次开发.我选择任意三点,就可算出三角行的面积. All work and no play “make” Jack a dull boy. 这句谚语中是“make”还是“makes”?求助各位路过的大虾!求助各位路过的大虾! CNC加工中心手动编程一个圆怎么编?(设圆的半径是10mm) autolisp问题自己编了一个小程序,然后再添加到了cad菜单栏中,但是重启cad,然后使用新添加的菜单栏中的程序的时候,总是弹出帮助文档,请问这是怎么回事?输入redefine之后就不会出现这个问题了 c语言编程:任意一个3位数,百位数减个位数等于十位数.要求用到指针,在函数中完成结果.求大虾编一个, 数控铣床宏程序编程实例编一个简单的毛坯外形,一个球加圆柱,是立体的.G90G0G54开头的越快越好 FANUC数控加工中心 宏程序请问下FANUC数控加工中心用宏程序编程编一个立体的五角星怎么编 机床是立式的加工中心 工件是 55X55的小工件 五角星是立体的五角星 如图 help with的同义词各位大虾求助! c语言编程,二维数组求助/*输入一个M*N的整数矩阵(3 【高一数学】不等式.详解~~大虾们,求助~~~这是一个填空题...但是我需要很详细很清晰的步骤,那个就是书的答案,但是我看不懂是怎么来的.能详细一点么?...感谢了! autolisp中画两圆公切线的程序怎么写? 人类对外卖的依赖性与危害性这是一个课题,帮帮编编课题背景 四级作文编成语故事一个成语故事 是编的 求古文名字有一篇古文说的是有一个很多次都没有死成的~~哪位大虾知道?~求助 谢谢 【AutoLISP】请教:下面这两句语言是一个程序里的两句,(setq str_rr (strcat 新直径:))(setq rr (getdist str_rr))--------------------------------------str_rr是一个字符串,(getdist str_rr))是什么意思?rr是那段举例? 把地名串联起来,编一个有趣的故事,怎么写?急需求助! 数控加工中心编程怎么编