[原创]：Autolisp编程心得(有"心得"别忘了往里面贴,加币&分!)

adisonmaster

真是好文章，有时间再好好研究吧，先回家吧！很累了！

king99112

好好学习了,我现在拿不到教材也只能跟兄弟门学习了

yuun

有时候后悔把程序给同事用,除了一些虚名,什么好处也没有.还给人不务正业的感觉.自己用用就行了.需要什么就想办法解决.
定长取点:
(defun C:ppl (/ entName1 entName1 Pt1 Pt2 pt3 xLen ylen)
(vl-load-com)
(setq entName1 (car (entsel "\n选择曲线: "))
pt1 (getpoint "\n指定测量起点: ")
xlen (getdist pt1 "\n指定测量长度: ")
ylen     (vlax-curve-getDistAtPoint entName1 pt1)
pt2 (vlax-curve-getPointAtDist entName1 (+ ylen xlen))
pt3 (vlax-curve-getPointAtDist entName1 (- ylen xlen)) )
  (command "line" pt1 pt2 "")
  (command "line" pt1 pt3 "")
(prin1)
)
(prompt "\n************ 用快捷键ppl运行 ***************")

(prin1)

高手帮忙完善一下

gysjy

当关键字只有两个时，用getpoint函数代替，可以不用键盘而只用鼠标左右键实现选择。例如：

2. 
   
3.   [FONT=courier new]
   
4. ;;镜像，过程中只用鼠标就能确定取消不取消原映像：
   
5. (defun c:mm(/ ss p1 p2 str os)
   
6.   (setvar "orthomode" 1)
   
7.   (setq ss (ssget) os (getvar "osmode"))
   
8.   (setvar "osmode" 2)
   
9.   (setq p1 (getpoint "\n第一点:")) (setvar "osmode" 0)
   
10.   (setq p2 (getpoint "\n第二点:" p1)
    
11.         str (getpoint "\n取消原映像吗?/取消(任意点取一点)<保留>:")
    
12.         str (if str "Y" "N")
    
13.   )
    
14.   (command "mirror" ss "" p1 p2 str)
    
15.   (setvar "osmode" os)
    
16.   (princ)
    
17. )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;镜像，过程中只用鼠标就能确定取消不取消原映像：<br /> (defun c:mm(/ ss p1 p2 str os)<br />   (setvar "orthomode" 1) <br />   (setq ss (ssget) os (getvar "osmode")) <br />   (setvar "osmode" 2)<br />   (setq p1 (getpoint "\n第一点:")) (setvar "osmode" 0)<br />   (setq p2 (getpoint "\n第二点:" p1)<br />         str (getpoint "\n取消原映像吗?/取消(任意点取一点)<保留>:") <br />         str (if str "Y" "N")<br />   )<br />   (command "mirror" ss "" p1 p2 str) <br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />   [/FONT]<br />

loveu515

很好的心得经验