(defun ukword(bit kwd msg def / inp)
(if (and def (/= def “”))
(setq msg (strcat “n” msg “:”)
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat “n” msg “: “))
)
(initget bit kwd)
(setq inp (getkword msg))
(if inp inp def)
)
;;调用方法如下:
(defun c:xt001()
(setq tt (ukword 1 “Yes No” “请选择(Yes/No):” tt))
)
文章关键字 ‘二次函数’
终于找到ukword函数,不敢独享
2010年08月16日，星期一請教為什么Palor函數出現這個問題﹖
2010年08月11日，星期三_$ (setq pt1 ‘(0 0))
(0 0)
_$ (setq pt2 (polar pt1 0 40))
(40.0 0.0)
_$ (setq pt3 (polar pt1 (/ pi 2) 40))
(2.44921e-015 40.0)
為什么pt3不是(0 40 0)呢?請朋友們幫幫忙﹐多謝﹗
VL求助－哪有vla-item的函数说明？
2010年08月8日，星期日如题
几个陌生函数
2010年07月25日，星期日lisp-import-exsubrs
L-ARX-INMPORT
函数是什么？
CAD公司提供的只是E文版的。
lisp-import-exsubrs更好，没有帮助信息。
使用(bpoly pt)函数在一些图形中遇到麻烦，求助！
2010年04月4日，星期日使用(bpoly pt)函数自动生成边界在一些图形中遇到麻烦，图形明明是封闭的，可是却反映为：
Select internal point: Selecting eerything…
Selecting eerything isible…
3379 selected, DELETED?
造成程序中断，急急求助高手释疑。
doslib6.0函数简介
2010年04月3日，星期六来自老菜笔记。
难免错误，多多包涵。仅作参考，详细请看原文。
:9 :9 :9
中文版:AutoLISP/VLISP /ARX函数说明,示例等(严禁灌水)
2010年04月1日，星期四AutoLISP/LISP 函数说明（中文版）
再在里面灌水,减币50. —by Aeo
请教函数xdrx_sortpointoncurve
2010年03月31日，星期三请教，通过(setq plist (apply ‘xdrx_sortpointoncure (cons nam plist)))返回的新点表plist总是一个点？不知是何原因，请指教，多谢!
请问这个函数？
2010年03月23日，星期二在论坛上看到xdrx_getinters函数，是XD工具箱的功能之一吧。因为我这里没能成功安装工具箱，所以如果哪位朋友方便话，请帮我把源代码贴上来，多谢多谢！
