设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：程序在执行(vl-cmdf "_.break" enta "_first" p ...
返回列表 发新帖
查看: 1221|回复: 7

[求助] [求助]：程序在执行(vl-cmdf "_.break" enta "_first" point &qu

[复制链接]
lt_zzy
发表于 2005-12-5 12:47:28 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×

  3.   [FONT=courier new]
  4. (defun c:pl1000( / a panduan i enta lst point cmdecho_old)
  5.   (DEFUN GET_ENDS_PL (PL / n pt-lst)
  6.     (setq pl (entget PL))
  7.     (FOREACH N PL
  8.       (IF (= 10 (CAR N))
  9.         (SETQ PT-LST (APPEND PT-LST (LIST (CDR N))))
  10.       )
  11.     )
  12.     PT-LST
  13.   )

  15.   (setq cmdecho_old (getvar "cmdecho"))
  16.   (setvar "cmdecho" 0)
  17.   (vl-cmdf "_.undo" "_group")
  18.   (setq a (ssget "X" '((0 . "LWPOLYLINE") (-4 . ">") (90 . 1000))))
  19.   (if (/= a nil)
  20.     (progn
  21.       (princ (strcat "\n图中有" (itoa (sslength a)) "条顶点数超过1000的多义线!"))
  22.       (initget "Y N")
  23.       (setq panduan (getkword "\n是否在1000点处打断?<Y>/N"))
  24.       (if (= panduan nil)
  25.         (setq panduan "Y")
  26.       )
  27.       (setq i 0)
  28.       (while (and (= panduan "Y") (/= a nil))
  29.         (repeat (sslength a)
  30.           (setq enta (ssname a i))
  31.           (setq lst (GET_ENDS_PL enta))
  32.           (setq fpt (nth 999 lst))
  33.           (setq point (list (car fpt) (cadr fpt) 0.0))
  34.           (vl-cmdf "_.break" enta "_first" point "@")
  35.           (setq i (1+ i))
  36.         )
  37.         (setq a (ssget "X" '((0 . "LWPOLYLINE") (-4 . ">") (90 . 1000))))
  38.         (setq i 0)
  39.       )
  40.       (princ "\n图中所有顶点数超过1000的多义线均被打断了!")
  41.     )
  42.     (princ "\n图中没有顶点数超过1000的多义线!")
  43.   )
  44.   (vl-cmdf "_.undo" "_end")
  45.   (setvar "cmdecho" cmdecho_old)
  46.   (princ)
  47. )

  49.   [/FONT]


程序的目的是将顶点数超过1000的多义线，在顶点1000处打断，可是在执行
(vl-cmdf "_.break" enta "_first" point "@")
这句的时候出现无效点的提示，但能打断，请高手帮我论断一下，看看问题出在什么地方了，谢谢！
setq, 多义, 图中

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xyp1964
发表于 2005-12-5 14:16:44 | 显示全部楼层
  2. [FONT=courier new](defun c:pl1000        (/ a panduan i enta lst point cmdecho_old os)
  3.   (DEFUN GET_ENDS_PL (PL / n pt-lst)
  4.     (setq pl (entget PL))
  5.     (FOREACH N PL
  6.       (IF (= 10 (CAR N))
  7.         (SETQ PT-LST (APPEND PT-LST (LIST (CDR N))))
  8.       )
  9.     )
  10.     PT-LST
  11.   )
  12.   (setq cmdecho_old (getvar "cmdecho")
  13.         os (getvar "osmode"))
  14.   (setvar "cmdecho" 0)
  15.   (setvar "osmode" 0);;;存在问题
  16.   (vl-cmdf "_.undo" "BE")
  17.   (if (setq a (ssget "X" '((0 . "LWPOLYLINE") (-4 . ">") (90 . 1000))))
  18.     (progn
  19.       (princ (strcat "\n图中有"
  20.                      (itoa (sslength a))
  21.                      "条顶点数超过1000的多义线!"
  22.              )
  23.       )
  24.       (initget "Y N")
  25.       (setq panduan (getkword "\n是否在1000点处打断?/N"))
  26.       (if (= panduan nil)
  27.         (setq panduan "Y")
  28.       )
  29.       (setq i 0)
  30.       (while (and (= panduan "Y") (/= a nil))
  31.         (repeat        (sslength a)
  32.           (setq enta (ssname a i))
  33.           (setq lst (GET_ENDS_PL enta))
  34.           (setq fpt (nth 999 lst))
  35.           (setq point (list (car fpt) (cadr fpt) 0.0))
  36.           (vl-cmdf "_.break" (list enta point) "_first" point point);;;存在问题
  37.           (setq i (1+ i))
  38.         )
  39.         (setq a (ssget "X" '((0 . "LWPOLYLINE") (-4 . ">") (90 . 1000))))
  40.         (setq i 0)
  41.       )
  42.       (princ "\n图中所有顶点数超过1000的多义线均被打断了!")
  43.     )
  44.     (princ "\n图中没有顶点数超过1000的多义线!")
  45.   )
  46.   (vl-cmdf "_.undo" "_end")
  47.   (setvar "cmdecho" cmdecho_old)
  48.   (setvar "osmode"os)
  49.   (princ)
  50. )[/FONT]

另：
取顶点的函数不好，不支持“POLYLINE”类实体，即(setvar"PLINETYPE"0)。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 8157个

财富等级: 富甲天下
发表于 2005-12-5 14:43:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(vl-cmdf "_.break" enta "_first" point "@")
===>
(vl-cmdf "_.break" enta  point point)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lt_zzy
 楼主| 发表于 2005-12-5 16:04:56 | 显示全部楼层
现在还有一个问题，就是找点的速度太慢，当多义线的顶点数超过20000时，程序要执行很长的时间。有什么办法可以提高找点的速度？？？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 8157个

财富等级: 富甲天下
发表于 2005-12-5 16:48:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;; (defun get_ends_pl (pl / n pt-lst)
;;     (setq pl (entget pl))
;;     (foreach n pl
;;       (if (= 10 (car n))
;;         (setq pt-lst (append pt-lst (list (cdr n))))
;;       )
;;     )
;;     pt-lst
;; )

一个偏方
(length (entget ee))
(90 . 2) ==> 23
(90 . 3) ==> 27
(90 . 4) ==> 31
(90 . 5) ==> 35
(90 . 1000)   ===> 4015
(cdr (nth 4010 (entget ee)))   ==> 点位值
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2005-12-5 19:59:46 | 显示全部楼层
用(setq brkpt (vlax-curve-getpointatparam lwpl 999.))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lt_zzy
 楼主| 发表于 2005-12-6 11:48:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢楼上的几位，无效点的问题解决了，速度也提高了。
还得请问二楼的朋友，
(list enta point)
是什么意思，不明白。
谢谢！！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 8157个

财富等级: 富甲天下
发表于 2005-12-6 13:16:14 | 显示全部楼层
类同 (entsel) 的返回值
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-28 22:02 , Processed in 0.228112 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表