API应用 由线段拉伸为矩形

st788796

1. (defun c:tt (/ e p1 p2 bvec vec callback myerr olderr)
   
2.   (defun myerr (msg)
   
3.     (princ "\n*cancel*")
   
4.     (redraw)
   
5.     (xdrx_pointmonitor)
   
6.     (setq *error* olderr)
   
7.     (princ)
   
8.   )
   
9.   (defun _getperpvector        (p / dis v)
   
10.     (setq dis (car (trans (mapcar '- p p1) 0 bvec))
    
11.           v   (xdrx_vector_product vec dis)
    
12.     )
    
13.   )
    
14.   (defun callback (dynpt / v)
    
15.     (redraw)
    
16.     (setq v (_getperpvector dynpt))
    
17.     (xdrx_grdraw 1 1 p2 (mapcar '+ p2 v) (mapcar '+ p1 v) p1)
    
18.   )
    
19. 
    
20.   (if
    
21.     (and
    
22.       (setq e (xdrx_entsel "\nPick Line: " '((0 . "line,Lwpolyline"))))
    
23.       (progn
    
24.         (if (eq (xdrx_getpropertyvalue (car e) "IsA") "AcDbLine")
    
25.           (mapcar 'set
    
26.                   '(p1 p2)
    
27.                   (xdrx_getpropertyvalue (car e) "startPoint" "endPoint")
    
28.           )
    
29.           (if (eq (xdrx_polyline_segtype
    
30.                     (car e)
    
31.                     (fix (apply 'xdrx_curve_getparamatpoint e))
    
32.                   )
    
33.                   "kLine"
    
34.               )
    
35.             (mapcar 'set
    
36.                     '(p1 p2)
    
37.                     (xdrx_polyline_getlinesegat
    
38.                       (car e)
    
39.                       (fix (apply 'xdrx_curve_getparamatpoint e))
    
40.                     )
    
41.             )
    
42.           )
    
43.         )
    
44.       )
    
45.     )
    
46.      (progn
    
47.        (setq olderr  *error*
    
48.              *error* myerr
    
49.        )
    
50.        (setq bvec (mapcar '- p2 p1)
    
51.              vec  (xdrx_vector_perpvector bvec)
    
52.        )
    
53.        (xdrx_pointmonitor "callback")
    
54.        (if (setq p (getpoint (trans (xdrx_line_midp p1 p2) 0 1) "\n距离: "))
    
55.          (progn
    
56.            (setq v (_getperpvector (trans p 1 0)))
    
57.            (xdrx_polyline_make
    
58.              t
    
59.              p1
    
60.              p2
    
61.              (mapcar '+ p2 v)
    
62.              (mapcar '+ p1 v)
    
63.            )
    
64.          )
    
65.        )
    
66.        (xdrx_pointmonitor)
    
67.        (redraw)
    
68.        (setq *error* olderr)
    
69.      )
    
70.   )
    
71.   (princ)
    
72. )
    

(defun c:tt (/ e p1 p2 bvec vec callback myerr olderr)<br />   (defun myerr (msg)<br />     (princ "\n*cancel*")<br />     (redraw)<br />     (xdrx_pointmonitor)<br />     (setq *error* olderr)<br />     (princ)<br />   )<br />   (defun _getperpvector        (p / dis v)<br />     (setq dis (car (trans (mapcar '- p p1) 0 bvec))<br />           v   (xdrx_vector_product vec dis)<br />     )<br />   )<br />   (defun callback (dynpt / v)<br />     (redraw)<br />     (setq v (_getperpvector dynpt))<br />     (xdrx_grdraw 1 1 p2 (mapcar '+ p2 v) (mapcar '+ p1 v) p1)<br />   )<br /> <br />   (if<br />     (and<br />       (setq e (xdrx_entsel "\nPick Line: " '((0 . "line,Lwpolyline"))))<br />       (progn<br />         (if (eq (xdrx_getpropertyvalue (car e) "IsA") "AcDbLine")<br />           (mapcar 'set<br />                   '(p1 p2)<br />                   (xdrx_getpropertyvalue (car e) "startPoint" "endPoint")<br />           )<br />           (if (eq (xdrx_polyline_segtype<br />                     (car e)<br />                     (fix (apply 'xdrx_curve_getparamatpoint e))<br />                   )<br />                   "kLine"<br />               )<br />             (mapcar 'set<br />                     '(p1 p2)<br />                     (xdrx_polyline_getlinesegat<br />                       (car e)<br />                       (fix (apply 'xdrx_curve_getparamatpoint e))<br />                     )<br />             )<br />           )<br />         )<br />       )<br />     )<br />      (progn<br />        (setq olderr  *error*<br />              *error* myerr<br />        )<br />        (setq bvec (mapcar '- p2 p1)<br />              vec  (xdrx_vector_perpvector bvec)<br />        )<br />        (xdrx_pointmonitor "callback")<br />        (if (setq p (getpoint (trans (xdrx_line_midp p1 p2) 0 1) "\n距离: "))<br />          (progn<br />            (setq v (_getperpvector (trans p 1 0)))<br />            (xdrx_polyline_make<br />              t<br />              p1<br />              p2<br />              (mapcar '+ p2 v)<br />              (mapcar '+ p1 v)<br />            )<br />          )<br />        )<br />        (xdrx_pointmonitor)<br />        (redraw)<br />        (setq *error* olderr)<br />      )<br />   )<br />   (princ)<br /> )<br />

lucas3

这个颜色是怎么做到的？

st788796

lucas3 发表于 2014-11-14 20:11
这个颜色是怎么做到的？

xdrx_grdraw

功    能：在屏幕上根据顶点表绘制向量(redraw 将清除)

调用格式：(xdrx_grdraw <颜色> <虚显标志> <顶点1>....<顶点n>)

返 回 值：无

说    明：<颜色>: -2 为和屏幕位置异或
                1--255 AUTOCAD 调色板颜色号
          <虚显标志>: 任意整数值，绘制向量将虚显，若给0或省略该参数，将实显。

/db_自贡黄明儒_

这个有点意思，赞

newer

/db_自贡黄明儒_ 发表于 2014-11-15 13:39
这个有点意思，赞

黄大师试试用API写写程序啊，保证能让你惊喜的。

/db_自贡黄明儒_

newer 发表于 2014-11-15 13:48
黄大师试试用API写写程序啊，保证能让你惊喜的。

N版又开玩笑，令我汗颜。我只不过拿着大刀乱砍一通。
对于API，不同版本需要加载不同的东西，很难搞明白。直到几天前，你告诉了我lsh的用法，基本上才可能说，lisp明白了。

st788796

/db_自贡黄明儒_ 发表于 2014-11-15 14:28
N版又开玩笑，令我汗颜。我只不过拿着大刀乱砍一通。
对于API，不同版本需要加载不同的东西，很难搞明白 ...

用 API 可以让你更多的去专注算法本身，那些实体特性信手拈来，不必耗费时间去写

newer

/db_自贡黄明儒_ 发表于 2014-11-15 14:28
N版又开玩笑，令我汗颜。我只不过拿着大刀乱砍一通。
对于API，不同版本需要加载不同的东西，很难搞明白 ...

你用LISP去完成ARX才能完成的事，没诱惑吗？咱们都是业余爱好，不是搞商业开发，要挑战自己哦，多动动脑防止老年痴呆。
加载几个东西费什么劲，现在API设计的都自动加载了，还有很多自动加载的函数在论坛。

别把时间都浪费在无用的地方了，基础东西写了又写，就是写了效率也不高。多把你聪明的脑瓜用到新的东西上，高级的算法实现上，多看看国内外学术论文，搞搞那些经典的算法，挑战自己，Goooba.{:soso_e113:}

umy131

这个看起来好用