[已解决]申请指定间距排孔程序

st788796 · 发表于 2017-6-9 21:52:23

pezyl 发表于 2017-6-9 15:49

都卸载后重新安装，只安装一个版本即可（API 或工具箱）

pezyl · 发表于 2017-6-9 22:30:21

newer 发表于 2017-6-9 21:15

谢谢您，重新拷贝的代码单圆可以执行了，可是双圆执行有错，如图，并且好像无规律，刚才在另外同事的两台电脑上也是同样的情况。

pezyl · 发表于 2017-6-9 22:33:01

st788796 发表于 2017-6-9 21:52

谢谢，已经安装卸载好几次了，确定安装没问题的，是不是API 0608的包有问题。。。跟N版的不一样？。。。

newer · 发表于 2017-6-9 23:03:37

pezyl 发表于 2017-6-9 22:33

API LISP目录下如果有 XDTB_MAIN.VLX，删了，启动CAD试试。

newer · 发表于 2017-6-9 23:05:09

pezyl 发表于 2017-6-9 22:30

如果在UCS下，回到WCS试试。

st788796 · 发表于 2017-6-10 02:19:28

替换这个函数，适合 line arc lwpolyline 不适合 spline

;;e --- 曲线实体，line arc,lwpoolyline
;;sd -- 起始距离
;;ed -- 结束距离
;;dis - 整数等分, 实数间距
;;margin -- 偏移距离，分正负
;;tf --- nil 单，实数双圆距离
(defun _getpts (e sd ed dis margin tf / ge0 ge in sp ep len pam1 pam2 _f n pts slen d)
(defun _f (ge pts dis / sp spam)
(setq sp (xdge::getpropertyvalue ge "hasstartpoint")
spam (xdge::getpropertyvalue ge "paramOf" sp)
)
(mapcar '(lambda (x / pam len pam1 pam2)
(setq pam (xdge::getpropertyvalue ge "paramOf" x)
len (xdge::getpropertyvalue ge "length" spam pam)
pam1 (xdge::getpropertyvalue
ge
"paramatlength"
0.0
(- len dis)
)
pam2 (xdge::getpropertyvalue
ge
"paramatlength"
0.0
(+ len dis)
)
)
(list (xdge::getpropertyvalue ge "evalpoint" pam1)
(xdge::getpropertyvalue ge "evalpoint" pam2)
)
)
pts
)
)
(setq ge0 (xdge::constructor e)
ge (xdge::getpropertyvalue
ge0 "getTrimmedOffset" margin '(0.0 0.0 1.0) 0)
)
(if (/= (length ge) 1)
(progn
(xdge::free ge0)
(mapcar 'xdge::free ge)
)
(progn
(setq ge (car ge))
(mapcar 'set
'(in sp ep)
(xdge::getpropertyvalue ge "getInterval")
)
(setq len (xdge::getpropertyvalue
ge
"Length"
(xdge::getpropertyvalue in "lowerBound")
(xdge::getpropertyvalue in "upperBound")
)
pam1 (xdge::getpropertyvalue ge "paramAtLength" 0.0 sd)
pam2 (xdge::getpropertyvalue ge "paramAtLength" 0.0 (- len ed))
slen (xdge::getpropertyvalue ge "length" pam1 pam2)
)
(if (= (type dis) 'INT)
(progn
(setq d (/ slen dis)
sd (+ sd d)
)
(repeat dis
(setq pts (cons (xdge::getpropertyvalue ge "evalpoint" sd) pts)
sd (+ sd d)
)
)
)
(progn
(repeat (1+ (fix (/ slen dis)))
(setq pts (cons (xdge::getpropertyvalue
ge
"evalPoint"
(xdge::getpropertyvalue ge "paramAtLength" 0.0 sd)
)
pts
)
sd (+ sd dis)
)
)
(setq pts (cons (xdge::getpropertyvalue ge "evalpoint" pam2) pts))
)
)
(if (= (type margin) 'REAL)
(setq pts (_f ge pts (/ margin 2)))
)
(xdge::free ge in ge0)
pts
)
)
)

;;e --- 曲线实体，line arc,lwpoolyline 
;;sd -- 起始距离 
;;ed -- 结束距离 
;;dis - 整数等分, 实数间距 
;;margin -- 偏移距离，分正负 
;;tf --- nil 单，实数 双圆距离 
(defun _getpts (e sd ed        dis margin tf /        ge0 ge in sp ep        len pam1 pam2 _f n pts slen d) 
  (defun _f (ge pts dis / sp spam) 
    (setq sp   (xdge::getpropertyvalue ge "hasstartpoint") 
          spam (xdge::getpropertyvalue ge "paramOf" sp) 
    ) 
    (mapcar '(lambda (x / pam len pam1 pam2) 
               (setq pam  (xdge::getpropertyvalue ge "paramOf" x) 
                     len  (xdge::getpropertyvalue ge "length" spam pam) 
                     pam1 (xdge::getpropertyvalue 
                            ge 
                            "paramatlength" 
                            0.0 
                            (- len dis) 
                          ) 
                     pam2 (xdge::getpropertyvalue 
                            ge 
                            "paramatlength" 
                            0.0 
                            (+ len dis) 
                          ) 
               ) 
               (list (xdge::getpropertyvalue ge "evalpoint" pam1) 
                     (xdge::getpropertyvalue ge "evalpoint" pam2) 
               ) 
             ) 
            pts 
    ) 
  ) 
  (setq        ge0 (xdge::constructor e) 
        ge  (xdge::getpropertyvalue 
              ge0 "getTrimmedOffset" margin '(0.0 0.0 1.0) 0) 
  ) 
  (if (/= (length ge) 1) 
    (progn 
      (xdge::free ge0) 
      (mapcar 'xdge::free ge) 
    ) 
    (progn 
      (setq ge (car ge)) 
      (mapcar 'set 
              '(in sp ep) 
              (xdge::getpropertyvalue ge "getInterval") 
      ) 
      (setq len         (xdge::getpropertyvalue 
                   ge 
                   "Length" 
                   (xdge::getpropertyvalue in "lowerBound") 
                   (xdge::getpropertyvalue in "upperBound") 
                 ) 
            pam1 (xdge::getpropertyvalue ge "paramAtLength" 0.0 sd) 
            pam2 (xdge::getpropertyvalue ge "paramAtLength" 0.0 (- len ed)) 
            slen (xdge::getpropertyvalue ge "length" pam1 pam2) 
      ) 
      (if (= (type dis) 'INT) 
        (progn 
          (setq        d  (/ slen dis) 
                sd (+ sd d) 
          ) 
          (repeat dis 
            (setq pts (cons (xdge::getpropertyvalue ge "evalpoint" sd) pts) 
                  sd  (+ sd d) 
            ) 
          ) 
        ) 
        (progn 
          (repeat (1+ (fix (/ slen dis))) 
            (setq pts (cons (xdge::getpropertyvalue 
                              ge 
                              "evalPoint" 
                              (xdge::getpropertyvalue ge "paramAtLength" 0.0 sd) 
                            ) 
                            pts 
                      ) 
                  sd  (+ sd dis) 
            ) 
          ) 
          (setq pts (cons (xdge::getpropertyvalue ge "evalpoint" pam2) pts)) 
        ) 
      ) 
      (if (= (type margin) 'REAL) 
        (setq pts (_f ge pts (/ margin 2))) 
      ) 
      (xdge::free ge in ge0) 
      pts 
    ) 
  ) 
)

pezyl · 发表于 2017-6-10 11:34:54

本帖最后由 pezyl 于 2017-6-10 11:37 编辑

newer 发表于 2017-6-9 23:05

一、API下LSP目录下没有XDTB_MAIN.VLX，WCS也试了，同样存在之前的情况

二、1、代码拾取到直线后应该不需要空格或者回车确认了，选中某一个图元即为确认
   2、进行到选方向这一步，按ESC取消不了，直接也画出了孔

三、仔细操作了一下，有这么几个现象          1、打开CAD后直接画双圆，会出现直接取消了的错误操作，也就是说画不出双圆，而画单圆没有问题

2、必须先存在画单圆操作，之后才能画出来双圆(如图双圆排布有错)

3、只有最近一次画过单圆排布的线才能画出没问题的双圆

pezyl · 发表于 2017-6-13 14:12:42

st788796 发表于 2017-6-10 02:19

替换之后，提示错误参数太少，请您帮忙

XDSoft · 发表于 2017-6-14 21:27:37

晓东工具箱和XDRX API都提供新版本了，你去下载最新的晓东工具箱安装，然后再测试。

pezyl · 发表于 2017-6-15 08:19:18

XDSoft 发表于 2017-6-14 21:27

老大，新安装的6.14的API，也还是会有之前的问题，奇怪，我好几个同事试了都存在，N版的就没有。无奈了

newer · 发表于 2017-6-15 08:53:56

pezyl 发表于 2017-6-15 08:19

1、你把上面的代码拷贝回去，别做修改
2、执行一次（不管结果）
3、把
      (setq pts (_getpoints))
   粘贴到命令行，看看有没有结果
4、如果上面有结果，把
      (setq pts1 (_drawcircle pts)) 粘贴到命令，看看什么结果。

pezyl · 发表于 2017-6-15 09:33:09

newer 发表于 2017-6-15 08:53

第3步(setq pts (_getpoints))都有结果
第4步(setq pts1 (_drawcircle pts))，启动CAD直接画单圆有提示鼠标选择方向，启动CAD直接改画双圆提示cancel了

newer · 发表于 2017-6-15 10:34:06

pezyl 发表于 2017-6-15 09:33

1、你意思是现在画单元完全没问题？

2、你去看 _drawcircle 函数，里面的代码，你一行一行粘贴执行，看到哪行出现错误？

pezyl · 发表于 2017-6-15 11:42:49

本帖最后由 pezyl 于 2017-6-15 11:43 编辑

newer 发表于 2017-6-15 10:34

1、直接画单圆没有问题，cad打开直接画双圆有问题画不出来。
2、必须先存在画单圆操作，之后才能画出来双圆

3、最近一次画过单圆的线上再画双圆排布是对的，否则双圆角度会错乱

直接画双圆执行到这句
(XD::Drag:MirrorByQuadrant
"\n移动鼠标确定方向:" ss origin 2 xAxis "" 0.1
)
的时候会提示*cancel*

newer · 发表于 2017-6-15 12:04:12

pezyl 发表于 2017-6-15 11:42

执行下

命令: (findfile "xd-lisp-lib.vlx")
"D:\\XDSoft\\sys\\xd-lisp-lib.vlx"

看看提示的目录是工具箱的安装目录下面的不

如果是，去工具箱SYS目录，看看文件时期是6月12日的不

QQ截图20170615120350.png

账号		自动登录	找回密码
密码			立即注册

[已解决] [已解决]申请指定间距排孔程序