lisp中有没有求一条直线的起点、中点、终点的函数。
2010年09月 存档
求直线上点的座标
2010年09月30日，星期四如何取得扩展数据里的项目？
2010年09月30日，星期四用(entget (car (entsel)) ‘(“*”))可获得扩展数据，如何取得扩展数据里的项目呢？
比如获得的外部数据如下：
((-1 . ) (0 . “DIMENSION”) (330 . <图元名:
7ef5dd08>) (5 . “204F”) (100 . “AcDbEntity”) (67 . 0) (410 . “Model”) (8 . “0″)
(100 . “AcDbDimension”) (2 . “*D1″) (10 179.481 147.894 0.0) (11 136.395
152.894 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . “”) (71 . 5) (72 . 1) (41 . 1.0)
(42 . 43.0853) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3
. “$ BASE $”) (100 . “AcDbAlignedDimension”) (13 93.3099 172.148 0.0) (14
179.481 163.053 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0)
(100 . “AcDbRotatedDimension”) (-3 (“ACAD” (1000 . “DSTYLE”) (1002 . “{“) (1070
. 144) (1040 . 0.5) (1070 . 40) (1040 . 2.0) (1002 . “}”))))
如何取得“ACAD”后的部分呢？
怎样获得系统打印机名称？
2010年09月30日，星期四小弟最近在编一个批量打印的程序，可是不知道怎样获得打印机的名称，因为有的机子是网络打印机，有的是本地打印机。又找不到DOSLIB.ARX的高版本。请各位帮帮忙！多谢！
请教一个小问题
2010年09月30日，星期四有些程序的开头要用
(setar “cmdecho” 0)
请问用这句的作用是什么？我不太明白，谢谢！
如何让(rtos 1.2598 2 3)的结果等于1.260而不是1.26
2010年09月30日，星期四因为我要把这个结果写入文本文件中.
如何给物体添加组码属性
2010年09月30日，星期四比如给自己生成的线添加（10000 。“呵呵”）属性，以后用SSGET过滤就可以直接过滤自己添加属性的物体了
关于vlax-curve-getEndParam
2010年09月30日，星期四lax-cure-getEndParam 函数返回的端点参数究竟指的是什么？
(lax-cure-getEndParam cure-obj)
功能
返回曲线端点的参数。
说明
参数 cure-obj 为要测量的 LA 对象。
返回值：
若成功则返回表示端点参数的实数，否则返回 nil。
范例
假定 ellipseObj 指向 lax-cure-getArea 范例中的椭圆。使用命令：
_$ (lax-cure-getendparam ellipseObj)
9.18231
返回端点参数为 9.18231 (pi x 3).
看了后，还是不明白，有上述的疑问。
怎样实现标注文字批量的偏移?
2010年09月30日，星期四请高手们给予帮助 , 怎样实现标注文字批量的偏移?
画图的时候,由于尺寸较小,尺寸和和标注线重叠了,得一个一个调节
标注文字 , 相当的麻烦了,怎样才能象对齐尺寸线那样,一下就把所选择的尺寸文字对齐 ?
关于插入文字的问题，在线等待
2010年09月30日，星期四(foreach nthlst Data_list
(setq x (car nthlst))
(setq y (cadr nthlst))
(setq r (caddr nthlst))
(command “text” (list x y) 6 0 r)
)
我是这样写的，从文本里面导入的，为什么参数r只接受数字不接受字符串阿?
我该怎么写啊，我对lisp的语法函数不熟悉
CAD2006里的zoom命令
2010年09月30日，星期四CAD2006里的zoom命令执行后玩得很花，慢悠悠地给你缩放到位，很晃眼睛，请问有什么系统变量能将它改成跟CAD2004一样吗？
