求几个函数，麻烦各位大神了

a117034423

1.已知实数x、y
求x*n（n为整数且>0）后与y最接近的实数且小于y，返回x*n的值
2.批量提取矩形、封闭多段线 X Y坐标并返回坐标值的函数（或提取矩形长宽、封闭多段线各边长的函数）
如果各位大神有算法，简单讲解也可以，我目前都是用坐标算的，有没有更简单的办法
3.动态块自定义参数批量替换
xd::block:setdynpropvalue o "距离1" dis 除了这个还有其他的吗？4.提取动态块自定义参数值的函数
（只提取）
麻烦各位大神了

Lisphk

善利用论坛搜索

动态块自定义特性，动态块特性

5 个回复 - 350 次查看

2020-2-9 22:07 - dcl1214 - A/VLISP

设置动态块的属性值

8 个回复 - 433 次查看

2017-5-19 13:29 - marting - A/VLISP

用VLISP存取动态块的属性

1 个回复 - 1262 次查看

问题： Is there an example showing how to access dynamic block properties? 解决方案： Here is a Visual Lisp example that iterates through dynamic properties of a selected block reference. If the ...

2016-5-17 09:30 - newer - A/VLISP

建议增加动态块类的几个方法

4 个回复 - 912 次查看

包括 AcDbDynBlockReference AcDbDynBlockTableRecord 几个属性 在获得Insert后，如果是 动态块 能够使用动态块的几个属性，比如直接获取 块定义（不是匿名块） ，也可以获取图中引用的所有该动态块，如 ACDB ...

2019-1-17 17:46 - st788796 - XDRX_API技术支持

如何提取动态块中的查询参数并标注在图框旁边？

37 个回复 - 2389 次查看

内容隐藏需要，请点击进去查看

2016-10-22 17:19 - ljfzx - 技术问答【悬赏求助】

求教： lisp 根据属性数值 修改 拉伸动态块 第三贴

11 个回复 - 1473 次查看

问题描述：我想实现这样的目的，对一个动态块输入属性值，根据属性值来控制拉伸的长度。之前我已经从论坛求得读取动态块属性以及根据数值控制拉伸长度的两个函数，但在两个函数结合起来的时候出错了。求大神帮忙，动 ...

2018-12-22 19:15 - 嘎嘎嘎123 - VBA、COM-ActiveX

用VLISP实现打印动态块的属性

2 个回复 - 182 次查看

2017-7-18 22:37 - marting - A/VLISP

动态块完全匹配

14 个回复 - 2155 次查看

(defun c:XDTB_DYNMat (/ e e1 properties) (xd::begin) (if (and (setq e (car (xdrx_entsel "\n拾取源动态块: " '((0 . "INSERT"))))) (if (xdrx_dynblock_isdyn e) t (progn ...

2013-10-9 09:19 - eachy - 每日插件

关于动态块的几个Vla函数

5 个回复 - 2288 次查看

1 判断是否是动态块 vlax-property-available-p vla-isdynamicblock a 返回值：T 是动态块，nil 否 b 返回值： :vlax-true 是动态块 :vlax-false 否 2 获取动态块属性 GetDynamicBlockPropertyies ...

2013-8-8 10:49 - st788796 - A/VLISP

• 动态块刷子
  4 个回复 - 1402 次查看
  一个尝试，没有测试更多属性
  2013-9-28 10:21 - eachy - XDRX_API应用
• 查询动态块所有参数
  4 个回复 - 1049 次查看
  
  
  2013-9-24 11:08 - eachy - A/VLISP
  
  

API 应用之动态插入动态块

12 个回复 - 2666 次查看

说明：没有写*error* 部分，中断时可能无法退出，只需输入 (xdrx_pointmonitor) 然后在中断即可！ 仅适用以下帖子附件之动态块http://www.xdcad.net/forum/forum.php?mod=redirect&goto=findpost&ptid=670072&pid=3 ...

2013-8-13 11:51 - st788796 - XDRX_API应用

Lisphk

批量提取矩形、封闭多段线 X Y坐标并返回坐标值的函数（或提取矩形长宽、封闭多段线各边长的函数）
如果各位大神有算法，简单讲解也可以，我目前都是用坐标算的，有没有更简单的办法

不知道你说的坐标算是怎么算的，最好贴下你的代码

用LISP可以这样
命令: (setq ed (entget (entlast)))
((-1 . <图元名: 24c20ffb8b0>) (0 . "LWPOLYLINE") (330 . <图元名: 24c210009f0>) (5 . "4CB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 6) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 1.21291 4.10884) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 3.08813 5.73149) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 4.99541 3.82421) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 3.74905 2.57785) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 2.67875 2.9875) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 1.75434 2.32788) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))

命令: (setq pts (vl-remove-if '(lambda(x)(/= (car x) 10)) ed))
((10 1.21291 4.10884) (10 3.08813 5.73149) (10 4.99541 3.82421) (10 3.74905 2.57785) (10 2.67875 2.9875) (10 1.75434 2.32788))

命令: (setq pp (mapcar 'cdr pts))
((1.21291 4.10884) (3.08813 5.73149) (4.99541 3.82421) (3.74905 2.57785) (2.67875 2.9875) (1.75434 2.32788))

a117034423

Lisphk 发表于 2020-11-26 18:30
批量提取矩形、封闭多段线 X Y坐标并返回坐标值的函数（或提取矩形长宽、封闭多段线各边长的函数）
如果各 ...

代码在这里，大神，现在点计算还有点问题，但是我写的可能是太基础了，麻烦您指导啦

1. (defun c:dss ()
   
2.   (setvar "cmdecho" 0)
   
3.       (setq osm (getvar "osmode"))
   
4.       (setvar "osmode" 0)
   
5.   (princ "<选择要拾取参数的板：>")
   
6.   (setq mod1 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car (entsel))))))
   
7.   (setq w1 (abs (caar mod1))) ;求点1X坐标
   
8.   (setq w2 (abs (caadr mod1)))
   
9.   (setq w3 (abs (caaddr mod1)))
   
10.   (setq w4 (abs (caar (cdddr mod1))))
    
11.     (setq ww (abs (- (max w1 w2 w3 w4) (min  w1 w2 w3 w4)))) ;求板X向长度
    
12.   (setq l1 (abs (cadar mod1))) ;求点1Y坐标
    
13.   (setq l2 (abs (cadadr mod1)))
    
14.   (setq l3 (abs (cadr (caddr mod1))))
    
15.   (setq l4 (abs (cadr (cadddr mod1))))
    
16.     (setq ll (abs (- (max l1 l2 l3 l4) (min  l1 l2 l3 l4)))) ;求板Y向长度
    
17.   (setq str1 (strcat"板X向长度为：" "<" (rtos ww) ">"))
    
18.   (setq str2 (strcat"板Y向长度为：" "<" (rtos ll) ">"))
    
19.   (print str1)
    
20.   (print str2)
    
21.    (setvar "osmode" osm)
    
22.    (setvar "cmdecho" 1)
    
23.   )

(defun c:dss ()<br />   (setvar "cmdecho" 0)<br />       (setq osm (getvar "osmode"))<br />       (setvar "osmode" 0)<br />   (princ "<选择要拾取参数的板：>")<br />   (setq mod1 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car (entsel))))))<br />   (setq w1 (abs (caar mod1))) ;求点1X坐标<br />   (setq w2 (abs (caadr mod1)))<br />   (setq w3 (abs (caaddr mod1)))<br />   (setq w4 (abs (caar (cdddr mod1))))<br />     (setq ww (abs (- (max w1 w2 w3 w4) (min  w1 w2 w3 w4)))) ;求板X向长度<br />   (setq l1 (abs (cadar mod1))) ;求点1Y坐标<br />   (setq l2 (abs (cadadr mod1)))<br />   (setq l3 (abs (cadr (caddr mod1))))<br />   (setq l4 (abs (cadr (cadddr mod1))))<br />     (setq ll (abs (- (max l1 l2 l3 l4) (min  l1 l2 l3 l4)))) ;求板Y向长度<br />   (setq str1 (strcat"板X向长度为：" "<" (rtos ww) ">"))<br />   (setq str2 (strcat"板Y向长度为：" "<" (rtos ll) ">"))<br />   (print str1)<br />   (print str2)<br />    (setvar "osmode" osm)<br />    (setvar "cmdecho" 1)<br />   )

bccmm001

我是来学习的！