画指定坡度线的申请

zhuqiqing · 发表于 2015-1-28 14:12:48

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

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

×

为提高工作效率，请大师帮写一个指定坡度的直线的lsp.输入坡度时可按百分比（如5%）和比例（如 1：5）两种输入模式。多谢！

heyongw · 发表于 2015-1-28 17:41:04

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xieline1.zip
下载次数:48 文件大小:1.15 KB
下载权限: 不限以上 [免费赚D豆]

命令行输入xieline
直接回车或输入1按1:x的坡度绘制线
输入2按x%的坡度绘制线。

dlutstar · 发表于 2015-1-29 08:48:26

命令行输入xieline
直接回车或输入1按1:x的坡度绘制线
输入2按x%的坡度绘制线。

heyongw · 发表于 2015-1-29 09:06:20

dlutstar 发表于 2015-1-29 08:48
命令行输入xieline
直接回车或输入1按1:x的坡度绘制线
输入2按x%的坡度绘制线。

(defun c:xieline()
  (initget "1 2")
  (setq a (getstring"\n输入坡度度量型式[(1:X)->1]or[(X%)->2]<1>"))
  (if (= a "") (setq a "1"))
(if (= a "1")
   (xieline1)
   (if (= a "2")
      (xieline2)
   )
)
)
(defun xieLine1(/ aa ps)
  (setvar "orthomode" 1)
  (setq aa (getstring "\n输入坡度<1:X>："))
  (setq aa1 (atof aa))
  (setq aa1 (/ 1 aa1))
  (setq aa1 (atan aa1))
  (setvar "snapang" aa1)
  (setq ps (getpoint"\n输入起点："))
  (command "line" ps pause)
  (setvar "snapang" 0)
  (setq ss (strcat "\n已按1:" aa "的坡度绘制了一条直线"))
  (princ ss)
  (prin1)
)
(defun xieLine2(/ aa ps)
  (setvar "orthomode" 1)
  (setq aa (getstring "\n输入坡度<X%>："))
  (setq aa1 (atof aa))
  (setq aa1 (/ aa1 100))
  (setq aa1 (atan aa1))
  (setvar "snapang" aa1)
  (setq ps (getpoint"\n输入起点："))
  (command "line" ps pause)
  (setvar "snapang" 0)
  (setq ss (strcat "\n已按" aa "%的坡度绘制了一条直线"))
  (princ ss)
  (prin1)
)
(prompt "按给定坡值绘制直线，在命令行输入xieline按提示操作即可，编程：何勇，2015.01.28")

zhuqiqing · 发表于 2015-7-9 14:12:27

heyongw 发表于 2015-1-29 09:06
(defun c:xieline()
(initget "1 2")
(setq a (getstring"\n输入坡度度量型式[(1:X)->1]or[(X%)->2 ...

多谢！很方便~

chen7560152 · 发表于 2020-9-12 12:58:41

heyongw 发表于 2015-1-29 09:06
(defun c:xieline()
(initget "1 2")
(setq a (getstring"\n输入坡度度量型式[(1:X)->1]or[(X%)->2 ...

这个东西太好用了

chen7560152 · 发表于 2020-9-12 13:03:40

heyongw 发表于 2015-1-29 09:06
(defun c:xieline()
(initget "1 2")
(setq a (getstring"\n输入坡度度量型式[(1:X)->1]or[(X%)->2 ...

这个东西太好用了

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

[编程申请] 画指定坡度线的申请

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

点评

点评