API应用提取曲线坐标点并制表

st788796 · 发表于 2014-11-12 11:48:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

相关函数见"开源函数库"
当然输出 xls 用 XdEx 解析库也很简单了

(defun c:tt (/ e p pts)
(if (and (setq e
(car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
)
(setq p (getpoint "\nPosition: "))
)
(progn
(setq pts (xdrx_entity_getstretchpoint e))
(setq pts (xd::table:celltile '("序号" "X坐标" "Y坐标" "Z坐标") 1 pts)
pts (cons "界址点成果表" pts)
)
(xd::table:make pts p 10.0 4.0)
)
)
(princ)
)

iLisp · 发表于 2014-11-12 12:43:41

点和编号怎么对应的？

Lisphk · 发表于 2014-11-12 17:42:01

大师，能不能给加上有圆弧时候的凸度信息呢，或者圆心半径，还有边长呢？我想这样就最完美了。

搜狗截图20141112173920.png

iLisp · 发表于 2014-11-12 18:06:02

那两栏得自己画了，Table没有这个功能，见过的界址表没有用凸度的，都是在圆弧取几个等分点

XDSoft · 发表于 2014-11-12 18:14:13

iLisp 发表于 2014-11-12 18:06
那两栏得自己画了，Table没有这个功能，见过的界址表没有用凸度的，都是在圆弧取几个等分点

EXCEL能做的表，CAD的TABLE也一样，设计下合并单元格就能实现。4行合并两行，写前面的，后面两栏中间两行合并，并适当调整第一，第四行的行高。

iLisp · 发表于 2014-11-12 18:20:25

XDSoft 发表于 2014-11-12 18:14
EXCEL能做的表，CAD的TABLE也一样，设计下合并单元格就能实现。4行合并两行，写前面的，后面两栏中间两行 ...

为了错行够麻烦的，不过是可行方案，建议楼主考虑做个模版

XDSoft · 发表于 2014-11-12 18:27:14

iLisp 发表于 2014-11-12 18:20
为了错行够麻烦的，不过是可行方案，建议楼主考虑做个模版

这应该是一种很常用的表格形式，其实不用固定模板了，反而死了。做几个灵活的设置合并单元格的函数就行了。当然能实现一个所见即所得的表格设计UI，那是更好了。

iLisp · 发表于 2014-11-12 20:10:19

不一定是模板，提供一个范例学习

st788796 · 发表于 2014-11-13 11:15:57

本帖最后由 st788796 于 2014-11-13 11:18 编辑

XDSoft 发表于 2014-11-12 18:27
这应该是一种很常用的表格形式，其实不用固定模板了，反而死了。做几个灵活的设置合并单元格的函数就行了 ...

API 中几个函数用的过程中没有效果，暂用 vla 函数

(defun c:tt (/ e p pts ptl tb tbobj)
(defun _mergecell (tb startCol endCol startRow)
(setq rows (xdrx_table_numrows tb))
(setq c startCol)
(while (<= startCol c endCol)
(setq r startRow)
(while (< r (1- rows))
(xdrx_table_mergecells tb r (1+ r) c c)
(setq r (+ 2 r))
)
(setq c (1+ c))
)
)
(if (and (setq e
(car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
)
(setq p (getpoint "\nPosition: "))
)
(progn
(setq pts (xdrx_entity_getstretchpoint e))
(setq pts (xd::table:celltile
'("序号" "X坐标" "Y坐标" "Z坐标")
1
pts
)
)
(while pts
(setq ptl (cons (car pts) ptl)
ptl (cons '(" " " " " " " ") ptl)
pts (cdr pts)
)
)
(setq ptl (reverse ptl)
ptl (cons (car ptl) (cddr ptl))
ptl (cons "界址点成果表" ptl)
)
(setq tb (xd::table:make ptl p 10.0 6.0)
tbobj (vlax-ename->vla-object tb)
)
(xd::table:begin tb)
(vla-insertcolumns tbobj 5 30. 2)
(vla-setrowheight tbobj 0 24)
(vla-setrowheight tbobj 1 16.)
(vla-scaleentity tbobj (vlax-3d-point p) 0.4)
(_mergecell tb 0 3 2)
(_mergecell tb 4 5 3)
(xd::table:end tb)
)
)
(princ)
)

(defun c:tt (/ e p pts ptl tb tbobj) 
  (defun _mergecell (tb startCol endCol startRow) 
    (setq rows (xdrx_table_numrows tb)) 
    (setq c startCol) 
    (while (<= startCol c endCol) 
      (setq r startRow) 
      (while (< r (1- rows)) 
        (xdrx_table_mergecells tb r (1+ r) c c) 
        (setq r (+ 2 r)) 
      ) 
      (setq c (1+ c)) 
    ) 
  ) 
  (if (and (setq e 
                  (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline")))) 
           ) 
           (setq p (getpoint "\nPosition: ")) 
      ) 
    (progn 
      (setq pts (xdrx_entity_getstretchpoint e)) 
      (setq pts        (xd::table:celltile 
                  '("序号" "X坐标" "Y坐标" "Z坐标") 
                  1 
                  pts 
                ) 
      ) 
      (while pts 
        (setq ptl (cons (car pts) ptl) 
              ptl (cons '(" " " " " " " ") ptl) 
              pts (cdr pts) 
        ) 
      ) 
      (setq ptl        (reverse ptl) 
            ptl        (cons (car ptl) (cddr ptl)) 
            ptl        (cons "界址点成果表" ptl) 
      ) 
      (setq tb          (xd::table:make ptl p 10.0 6.0) 
            tbobj (vlax-ename->vla-object tb) 
      ) 
      (xd::table:begin tb) 
      (vla-insertcolumns tbobj 5 30. 2) 
      (vla-setrowheight tbobj 0 24) 
      (vla-setrowheight tbobj 1 16.) 
      (vla-scaleentity tbobj (vlax-3d-point p) 0.4) 
      (_mergecell tb 0 3 2) 
      (_mergecell tb 4 5 3) 
      (xd::table:end tb) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2014-11-13 12:09:10

st788796 发表于 2014-11-13 11:15
API 中几个函数用的过程中没有效果，暂用 vla 函数

哇，没有做不到只有想不到。{:soso_e179:}

吴迪hello · 发表于 2017-8-11 12:10:07

st788796 发表于 2014-11-13 11:15

这个代码怎么使用？已经放到lsp里面了，直接拉入CAD程序里只显示加载成功了，其他的毫无反应，有什么命令调取吗？

brainstorm · 发表于 2017-8-11 18:51:42

(setq pts (xdrx_entity_getstretchpoint e))

brainstorm · 发表于 2017-8-11 18:58:15

手机回复 (setq pts (xdrx_entity_getstretchpoint e)) (setq n 0) (foreach nn pts (xdrx_text_make nn (rtos (setq n (1+ n))2 0) 300 0)

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

[教学] API应用提取曲线坐标点并制表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

[教学] API应用 提取曲线坐标点并制表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

[教学] API应用提取曲线坐标点并制表