[求助]：PLINE问题

acmilan

我想知道怎么控制弧的大小


有几种方法可以控制它

27182818284

还可以指定圆心(CE)在圆弧起始点的竖线上

lkai_11

在pl命令下控制弧的半径吗？
输入a参数后有很多可供选择的方式呀。自己挑一个可用的。

XDSoft

XDRX_API 给LISP程序员提供了两个更实用的动态拖动预演圆弧的核心函数，下面是用xdrx_dragarc 的LISP程序代码

2. 
   
3. <normalfont>
   
4. (defun c:test ()
   
5.   (initget "C")
   
6.   (if (and (setq p1 (getpoint "弧线起始点<退出>:"))
   
7.            (setq p2 (getpoint "\n终点<退出>:"))(setq p0 (xdrx_dragarc 0 "\n请点取中间点[C-圆心]:" p1 p2 "C")))
   
8.     (progn
   
9.       (if (listp p0)
   
10.         (command "arc" p1 p0 p2)       ; 绘制3点弧
    
11.         (progn
    
12.           (if (= p0 "C")
    
13.             (setq p0 (xdrx_dragarc 1 "\n请点取圆心:" p1 p2))
    
14.           )
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    
21. </normalfont>
    

<br /> <normalfont><br /> (defun c:test ()<br />   (initget "C")<br />   (if (and (setq p1 (getpoint "弧线起始点<退出>:"))<br />            (setq p2 (getpoint "\n终点<退出>:"))(setq p0 (xdrx_dragarc 0 "\n请点取中间点[C-圆心]:" p1 p2 "C")))<br />     (progn<br />       (if (listp p0)<br />         (command "arc" p1 p0 p2)       ; 绘制3点弧<br />         (progn<br />           (if (= p0 "C")<br />             (setq p0 (xdrx_dragarc 1 "\n请点取圆心:" p1 p2))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> </normalfont><br />

函数用法说明：

1. 
   
2. <normalfont>
   
3. 89. xdrx_dragarc
   
4. 
   
5. 功能：动态拖动模拟绘制ARC
   
6. 
   
7. 调用格式：(xdrx_arcdrag <ARC方式> <提示字符串> <起始点> <终止点> [关键字] [SSGET过滤表])
   
8. 
   
9. 说明： 1. 允许配合(initget),若(initget)设置了"关键字", 并且函数使用了[关键字]选项，那么若输入
   
10.          关键字，返回关键字。
    
11.       2. 关键字必须是单字符。
    
12.       3. 参数 [ARC方式]: 若为0，模拟拖动三点圆生成圆弧。
    
13.                         若为1，模拟起始点，圆心，终止点 拖动生成圆弧。  
    
14. 
    
15. 返回值：若设置了(initget)关键字，输入关键字，返回关键字"单字符".
    
16.        若[arc方式]为0，返回圆弧的中间点坐标。
    
17.        若[arc方式]为1，返回圆心坐标。
    
18. </normalfont>
    

复制代码

下面是上面LISP程序执行的结果：


下载地址：http://www.xdcad.net/tech/arcdrag.swf

<embed src=http://www.xdcad.net/tech/arcdrag.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

ahlzl

再问XDSoft及各位高手，我正在学LIsp，是AutoLisp好，还是Vlisp好。上面程序是Autolisp。

XDSoft

最初由 ahlzl 发布
[B]再问XDSoft及各位高手，我正在学LIsp，是AutoLisp好，还是Vlisp好。上面程序是Autolisp。 [/B]

AUTOLISP是基础，VLISP是在LISP基础上的扩充，他们没有冲突，AUTOLISP是VLISP的一个子集。不能脱离AUTOLISP而去学VLISP。

acmilan

谢谢